= tn 2 lo eo iD = 3H iz = > = : | | 
Peaster AC | EOEORED 


CT a FICHE 01 OF 01 





SER DOCUMENTATION 


U 
CZTUF Pil 


25-JAN-84 08 


Bil 


COUNT OPTION 


ep i 30( 1046) ms JAN-864 08:35 PAGE 6 
MSCNTOP:; GPRM 


-REM € 


IDENTIFICATION 
PRODUCT CODE: AC -E646F -MC 
PRODUCT NAME : CZTUUFO TUSS PERF EXER 
PRODUCT DATE: 23 JANUARY 1964 
MAINTAINER: TAPE DIAGNOSTIC ENGINEERING 
AUTHOR : R. J. ROSS 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY OIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1979,1984 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DEC TAPE 


SEQ 0001 


oe! 


USER DOCUMENTATION MACY11 30(1046) 25-JAN-84 08:33 P 
CZTUUF.P11 25-JAN-84 08:09 MSCNTOP ; GPRM COUNT OPTION SEQ 0002 
HISTORY 
JUNE 18,1979 INITIAL RELEASE CZTUUAO 
JULY 1,1979 SECOND RELEASE CZTUUBO 
JUNE 1,1980 THIRD RELEASE CZTUUB1 
OCTOBER 1,1981 FOURTH RELEASE CZTUUCO 
MARCH 1,1982 FIFTH RELEASE CZTUUDO 
JUNE 1,1983 SIXTH RELEASE CZTUUEO 
JANUARY 23,1984 SEVENTH RELEASE CZTUUFO 
CZTUUAO 


1. INITIAL REALEASE--PERF. EXER. FOR UP TO 8 TUSS CONTROLLERS 
WITH ONE OR TWO ORIVES EACH. 


CHANGES TO CZTUUAO 
1. THE PROGRAM WAS Asperger oy TO RUN UNDER THE NEW DIAGNOSTIC 
SUPERVISOR CHSAAO. AS A RESULT OF THIS CONVERSION, THIS 
PROGRAM NOW OPERATES IN 8K AND PAPERTAPE OISTRIBUTION 
REQUIRES ONLY ONE PART AK-E6506-MC. 


CHANGES TO CZTUUBO 


1. “CLR & XMSRCRS)” HAS BEEN CHANGED TO “DEC @ XMSR(RS)” TO 
ALLEVIATE THE PROBLEM OF DESTROYING ANY PREVIOUSLY SET 
PROGRAMMABLE SPEED IN THE OLV11-E.F,. OR 0C3519 OLART WHEN 

THE TUSS INIT SEQUENCE WAS TERMINATED. 


CHANGES TO CZTUUB1 


1. TEST 9 WAS ADDED TO THE DIAGNOSTICS BECAUSE THE TUS8 HAS 
BEEN UPDATED TO USE MODIFIED RADIAL SERIAL PROTOCOL. 


CHANGES TO CZTUUCO 


1. A TEST WAS ADDED TO VERIFY 128 BYTE/BLOCK MODE. THE TEST 
IS SIMULAR TO TEST 3. IT WRITES, READS, AND VERIFIES SEQU- 
F BLOCK O THOUGH BL 


OF TAPE FROM OCK 2047 
IS DONE FOR EACH SELECTED DRIVE IN EACH SELECTED UNIT. THIS 
WILt BE TEST 4. TEST NUMBERED 4-8 WILL BECOME TEST 5-9. 


2. IN TEST 9, ‘MRSP’ WILL BE TESTED DIFFERENTLY. IN THIS VERSION 
TO TEST THE NEED FOR HANDSHAKING. THE WAIT LOOP IS BEFORE SENDING 
THE ‘CONTINUE’ INSTEAD OF AFTER. THIS WILL VERIFY THAT THE TUSS 
CANNCT SEND DATA WITHOUT A HANDSHAKE. 


Di 
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CHANGES TO CZTUVEO 


1. ADDED SOFTWARE PARAMETER TO ALLOW OPTION OF EXECUTING TEST 3 * 
DRIVE O ONLY, OR ALL DRIVES. IF TEST 3 IS EXECUTED ON ORIVE O ONLY, 
EXECUTION TIME IS REDUCED. 
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8 
COUNT OPTION 
TABLE OF CONTENTS 


GENERAL INFORMATION 

PROGRAM ABSTRACT 

SYSTEM REQUIREMENTS 

RELATED DOCUMENTS AND STANDARDS 
DIAGNOSTIC HIERARCHY PREREQUISITES 
ASSUMPTIONS 


OPERATING INSTRUCTIONS 
HOW TO RUN THIS DIAGNOSTIC 


ERROR INFORMATION 
PERFORMANCE AND PROGRESS REPORTS 
DEVICE INFORMATION TABLES 


TEST SUMMARIES 
GENERAL INFORMATION 


oO yi 2 WwW NN PRP rPrPRPr 
° oo C8lUwrOlCUYISUNRO 


THIS ee ae EXERCISES FROM 1 TO 8 TUSS CONTROLLER BOARDS. E 
OF WHICH MAY SUPPORT 1 OR 2 DRIVES. THE age et IMPLEMENTS THE 
"MAINTENANCE MODE” SWITCH WITHIN ALL PACKET COMMANDS, THUS RETRIEVING 
poscan oe INFORMATION FROM THE DEVICE UPON CERTAIN DEVICE RECOGNIZED 


STATISTICAL SUMMARIES ARE PROVIDED FOR ALL UNITS TESTED. RETRIES 
ARE PERFORMED ON DATA-RELATED ERROR CONDITIONS. 


USE OF LOOP ON ERROR FLAG (:L0E) IS IMPLEMENTED BUT NOT 
RECOMMENDED FOR USE. SINCE THE LOOPS ARE QUITE LENGTHLY DUE 
TO COMMUNICATIONS PROTOCOL OVERHEAD. 


IN ORDER TO EXERCISE MULTIPLE aes IN * EFFICIENT MANNER, 
SCHEDULNG ALGORITHM BUILOS, THEN SENDS THE NEXT COMMUNICATION 
PACKET (COMMAND OR DATA) FORMULATED BY EXECUTING MACRO CODE WITHIN 


THE TEST ALGORITHMS. THE USE OF MACROS TO IMPLEMENT THE COMMUNICATIONS 
PROTOCOL NOT 


SIMPLIFIES CONTEXT SWITCH FROM BY 
REQUIRING & ARATE DEVICE STACKS IN ADDITION TO THE SYSTEM 
STACK. THE TEST CODE RUNS O-ROUTINE WITH THE SCHE R,SO A 


AS AC DULER ,SO 
TEST CODE PROGRAM COUNTER IS MAINTAINED FOR EACH UNIT “TSTPC(RS)". 
THE TESTS ARE PERFORMED USING THE SPECIFIED ALGORITHM ON ALL ORIVE O 


‘Ss. 
THEN REPEAT THE TEST AFTER SWITCHING DRIVES, IF ANY DRIVE “1'S” WERE SELECTED. 


FOLLOWING THE TRANSMISSION OF 1 PACKET TO EACH DEVICE (WITH XOFF 
PRECEEDING) THE UNITS ARE POLLED, AND THEIR ENTIRE RESPONSES 


SEQ 0004 


Fd 
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EVALUATED ROUND ROBIN. IF ANY ERROR INITIATES A RETRY, THE SCHED- 

ULING PROCESS IS ei 3 = TO COMMUNICATE WITH ONLY 1 UNIT UNTIL 

rag MES OF THE RETRY PROCEDURE. THEN, A RETRY BY ANOTHER UNIT 
PROCEED, OR THE SYSTEM CONTINUES NORMALLY. 


THROUGHOUT THE PROGRAM, RS POINTS TO ONE OF 8 POSSIBLE DATA 

STRUCTURES CONTAINING STATUS. TEST PARAMETERS, AND STATISTICAL 

INFORMATION FOR THE CURRENT UNIT, CALLED “UNIT'S DATA BLOCK”. 
“START” CLEARS STATISTICS. “RESTART” AND “CONTINUE” DO NOT. 


UPON OCCURANCE OF A_ FATAL ERROR, THAT UNIT IS DESCHEDULED 
. ah ALLOWING THE REMAINING CIF ANY) TO PROCEED WITH 


ERROR DESCRIPTIONS: 


AN EXPLANATION OF THE EXTENDED ERROR INFORMATION FOLLOWS. SEE 
ney Mn Bh IN THIS LISTING SUBTITLED “ERROR MESSAGE 


BLOCK @: THE RECORD NUMBER (1 PER Si2. BYTES) 
IN LAST COMMAND PACK. 
COMMAND : THE MOST RECENT COMMAND PACKET OP CODE. 
EXPCTD: THE DATA PATTERN USED ON WRITE COMMAND 
AND FOR DATA COMPARE AFTER READ OP. 
SUCCESS: THE SUCCESS CODE RECEIVED IN END PACKET. 
PAK SENT: TYPE OF PACKET JUST SENT (O FOR DATA; 
1 FOR COMMAND) 
FLAG RCVO: FLAG BYTE OF PACKET CURRENTLY BEING 
CHECKED, OR 1ST BYTE OF RESPONSE. 


SINCE IN MAINTENANCE MODE TUSS WILL SEND A BAD DATA PACK WITH A 
“DATA CHECK“ SUCCESS STATUS oh THE FOLLOWING END PACK, THE HOST 
PACKET ERR CHECKING THOSE DATA ag SO DETERMINE “BAD DATA” IN 


THEN INTERPRET THE SUCCESS CODE TO op oe 


FIRST, 
A COMMUNICATIONS GLITCH (GOOD SUCCESS) VS. TU ‘DATA-CHECK’ E 
THIS WOULD SEEM TO RESULT IN TWO “ERROR” MESSAGES FOR ONE ERROR 


CONDITION, BUT ONLY THE SECOND ERROR MESSAGE WILL CONTAIN PERTINENT 
ERROR NUMBER. 


(NOT ZERO) E 


SYSTEM REQUIREMENTS 


—=€, CPU WITH AT LEAST 24K WORDS OF MEMORY AND CONSOLE 
Vv ‘ 


SEQ 0005 


Gl 


USER DOCUMENTATION anes. 30( 1046 ) natuton. -84 08:35 PAGE 8- 


CZTUUF P11 25-JAN-84 08 


1.2.2 


1.4 


1.5 


2.0 


2 
GPRM COUNT OPTION 


TUS8 CONTROLLER AND DRIVE(S). OL, OLV, OR POT COMPATABLE INTER- 
FACE; AND REVISION “I” TUS8 MICROCODE (OR LATER) ASSUMED. 


THE PROGRAM IS REVISION D DIAGNOSTIC SUPERVISOR COMPATIBLE. 
CONSULT XXDP+ USERS MANUAL FOR OPERATING INSTRUCTIONS. 


RELATED DOCUMENTS AND STANDARDS 


XXDP+ USERS MANUAL CHQUS 


DIAGNOSTIC HIERARCY PREREQUISITES 


SYSTEM HARDWARE OTHER THAN TUS8&(S) IS OPERATIONAL. 


OPERATING INSTRUCTIONS 


THE DIAGNOSTIC MAY GE INVOLKED WITH A ‘START’ RESPONSE TO THE 
Pe he IS SUFFICIENT. 


SUPERVISOR PROMPT. 
Ah ig DEVICE IS NOT AT THE STANDARD ADDRESS AND VECTOR (176500. 


>. THEN are WITH ‘YES’ INITIALLY TO SET UP 
HARDWARE CONFIGURATION TABLES FOR EACH UNIT. THAT INFORMATION 


TUSS CSR : os on OF RCSR OF DLV-11 OR OTHER INTERFACE 


VECTOR ADOR. - ADDRESS OF INTERRUPT VECTOR LOCATION. 


PDT INTERFACE -- IS THE TUS8 IN A PDT 11/130. 
OR SYSTEM WHOSE BUFFERS ARE: 
RCDB (AND XMDB) 
XMSR 


TEST DRO - YES OR NO 


SEQ 0006 
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TEST DR1 - YES OR NO 

SUBSEQUENT RESPONSES TO “CHANGE HW?” MAY THEN BE “NO”. 

THE STANDARD ADDRESS AND VECTOR LOCATIONS FOR THE POT 11/150 
ARE 177170 AND 260 RESPECTIVELY. 

THE SOFTWARE QUESTIONS ARE AS FOLLOWS: 


NUMBER OF BLOCKS: TEST 5-8 -- ONE MAY SELECT A MINIMUM OF 8, TO 
A MAXIMUM OF 512 BLOCKS TO WRITE, 
READ; WRITE VERIFY; AND READ REDUCED, 
AS EXPLAINED IN SECTION 6.0. 


ADD DR @ TO DATA PATTERN’ ~-- FOR THOSE SAME READ AND WRITE TESTS 
5-8, THE DRIVE NUMBER (O OR 1) MAY 
BE ADDED TO DATA WRITTEN ON TAPE TO 
INSURE DRIVE SELECT BIT OPERATION. 


STATISTICS PRINTED AT EOP -- SELECTS WHETHER OR NOT TO PRINT 
INFORMATION AT END OF PASS OR °C. 
THESE STATISTICS MAY ALSO BE RE- 
TRIEVED WITH THE “PRI” COMMAND. 


COMPARE DATA ON READ -- SELECTS WHETHER OR NOT TO DO A 
the COMPARE ON DATA PACKETS RE- 


PRINT PACKET ON ERROR -- PRINTS 132. BYTE DATA PACKET ON A COMPARE 
ERROR, IF SELECTED. 


@ ERRORS=DVC FATAL IF ‘EVL' SET -- IF USER SETS EVL FLAG CEVALUATE) 
MODE). HRO rr SFT ERROR MESSAGES 
BECOME OVC FTL ERRORS AFTER THE 
NUMBER SPECIF TED IS EXCEEDED. 


PRINT UNIT PROTOCOL SUMMARY (TEST 9) -- PRINTS A ny — 
THE PROTOCOL CF EACH UN 


ERROR INFORMATION 


ERROR INFORMATION IS PROVIDED ON OCCURRANCE OF ERRORS AS OUTLINED IN 
SECTION 1.1. 


PERFORMANCE AND PROGRESS REPORTS 


STATISTICS ARE AVAILABLE PER SECTION 1.1 AT END OF PASS, CONTROL-C, OR 


UPON ENTERING A “PRI” ial THE Y CONSIST OF #@ BLOCKS WRITTEN AND READ, @ OF 


DATA ERRORS, HARD OR SOFT 


SEQ 0007 
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CONSULT SECTION SUBTITLED “DATA BLOCK FORMAT” FURTHER ON IN THIS LISTING. 


TEST SUMMARIES 


TEST 4: 


TESTS 5-8: 


INIT IS SENT TO DEVICE IF: 

1. INIT CODE IN SUPERVISOR IS EXECUTED 

2. INIT IS REQUESTED BY DEVICE AS A RESULT OF 
ERROR . 


INITIATES FIRMWARE DIAGNOSTICS AT DEVICE LEVEL (SELF TEST) 


SEEK TEST. SEEKS BOT ON BOTH TRACKS, THEN 
VERIFIES 60 IPS OPERATION TO SEEK EOT ON 
ON BOTH TRACKS,ENDING THEN AT BOT. 


PERFORMS WRITE, THEN READ OF eg BLOCKS AT BOT 
WITH VARYING DATA, THEN SEEKS HALF WAY INTO REMAINING 
TAPE AND REPEATS THE ABOVE UNTIL EOT. THIS TEST IS IN 
Si2 BYTE/BLOCK MODE. 


PERFORMS WRITE, THEN READ OF ADJACENT BLOCKS AT BOT 
WITH VARYING DATA, THEN SEEKS HALF WAY INTO REMAINING 


TAPE AND REPEATS THE ABOVE UNTIL EOT. THIS TEST IS IN 
128 BYTE/BLOCK MODE. 


READS OR WRITES BLOCK @ AS DATA INTO SUCCESSIVE BLOCKS 
ON L a WARE 


? S OF 
BLOCKS SELECTED. DRIVE NUMBER IS ADDED TO RECORD 
S AULT,SO FOR TAPE INTERCHANGE 
TESTING, ANSWER (N) TO SOFTWARE (SW) QUESTION @e. 


NOTE: THE AMOUNT OF TIME SPENT IN TESTS 5-8 IS QUITE 
LONG IF THE FULL TAPE (Si2.) IS SELECTED. 


TEST 5S: 
Test 6: 
TEST 7: 
TEST 8: 


WRITE TAPE 

READ TAPE 

‘WRITE VERIFY’ TAPE 

READ MODIFIED THRESHOLD TAPE 


SEQ 0008 
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THE FIRST PART OF Me 4 9 ag tr ty BA A wi Is 


PROTOCOL, AND DETERMINES THE OF A UNIT By 
SENDING THE TUS8 A GET CHARACTERISTICS COMMAND 
MONITOR T SPONSE. IF TURNS AN END 


ING THE RE US8 
PACKET IT IS A MODIFIED UNIT. IF THE TUSS RETURNS A 
DATA PACKET IT IS A By = MODIFIED UNIT. NOTE, THE DATA 
PACKET RETURNED ON A GET CHARACTERISTICS COMMAND IS 
NOT NORMAL; RATHER By CONSISTS OF A DATA PACKET THAT 
Oe 28. BY"ES PLUS AN END PACKET WHICH IS 14. BYTES. 

HE SECOND PART OF TEST 9 TESTS ONLY THOUGHS UNITS 
THAT ARE MODIFIED. THIS IS ACHIEVED BY LETTING NON- 
MODIFIED UNITS JUMP OVER CODE. IT WAS ASSUMED THAT IF 
OPERATING IN R 


PROTOCOL SUMMARY 
SWERING YES CY) TO SOFTWARE (SW) QUESTION @ 5. 
é 


SEQ 0009 
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RAARAAARBRAAAARAAAARAARAARAAAAARABDAARAARAAAS 
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FF A Ba a Rd a a a a at a a a ad a a a a a a 


002000 


002000 


KL 
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COUNT OPTION SEQ 0010 
. TITLE PROGRAM HEADER AND TABLES 
.SBTTL PROGRAM HEADER 
-ENABL ABS,AMA 
-NLIST BEX 
BGNMOD 
i 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
gE <2 
POINTER BGNRPT ,BGNSW,BGNSF T ,BGNAU ,BGNDU,BGNSE TUP 
HEADER CZTUU,F,0,3600.,1,PRIO7 
LSNAME: : 
-ASCII /C/ 
-ASCII /2Z/ 
-ASCII /T/ 
-ASCII /U/ 
-ASCII /U/ 
-BYTE 0 
-BYTE 0 
-BYTE 0 
LSREV:: 
-ASCII /F/ 
L$DEPO: : 
-ASCII /0/ 
LSUNIT:: 
WORD TSPTHV 
LS$TIML:: 
. WORD 3600. 
LSHPCP:: 
.WORD L $HARD 
L$SPCP:: 
WORD L$SOFT 
LSHPTP:: 
. WORD L$HW 
LSSPTP:: 
WORD L$SwW 
LS$LADP: : 
. WORD LSLAST 
L$STA:: 
. WORD 0 
L$sCco:: 
. WORD ) 
LSOTYP:: 
. WORD 1 
LSAPT:: 
. WORD 0 
LSDTP:: 
‘ LSOISPAT 
LSPRIO:: 
PRIO?7 


Re - 


PROGRAM HEADER AN” TABLES MACYi1 30(1046) 25-JAN-84 08:55 PAGE 9-1 
CZTUUF .P11 25-JAN-84 08:09 PROGRAM HEADER 


SEQ 0011 

(5) LSENVI:: 

(4) 002044 000000 ‘ 0 

(5) LSEXP1:: 

(4) 002046 000000 : 0 

(5) 002050 LSMREV:: 

(4) 002050 003 BYTE CSREVISI 
€3) 002051 003 -BYTE CSEDIT 
(5) 2052 LSEF:: 

(4) 000000 .WORD 0O 

(5S) 002054 000000 -WORD O 

(5S) 002056 L$SPC:: 

(4) 002056 000000 -WORD O 

(5S) 002060 LSDEVP:: 

(4) 002060 005512 .WORD LS$DvTYP 
(5) 002062 LSREPP: : 

(4) 002062 015170 -WORD LSRPT 
(5) 002064 LSEXP4:: 

(4) 002064 000000 -WORD O 

(5) 002066 LSEXPS:: 

(4) 002066 00C000 -WORD 0O 

€5) 002070 LSAUT:: 

(4) 002070 017326 -WORD LSAU 
(5S) 002072 L$DUT:: 

(4) 002072 017202 -WORD LSDU 
(5S) 002074 L$LUN:: 

(4) 002074 000000 -.WORDB O 

€S) 002076 . LSDESP: : 

€4) 002076 002122 -WORD LSDESC 
€5) 002100 L$LOAD: : 

€4) 002100 104035 EMT ESLOAD 
(5) 002102 LSETP:: 

€4) 002102 000000 -WORD 0O 

(5) 002104 LSICP:: 

€4) 002104 016204 -WORD LSINIT 
€S) 002106 LSCCP:: 

€4) 002106 017160 .WORD LSCLEAN 
(5) 002110 LSACP:: 

€4) 002110 016776 : .WORD LSAUTO 
(5) 002112 LSPRT:: 

€4) oO02112 002142 .WORD L$PROT 
(5S) 002114 LSTEST:: 

€4) 002114 000000 .WORD O 

(5S) 002116 LSDLY:: 

€4) 002116 000000 ‘ DB. C« 

(5S) 002120 LSHIME: : 
shed 002120 000000 .WORDB O 
3817 002122 DESCRIP <TUS8S PERF EXER> 

€4) 002122 LSDESC:: 

€3) OO2122 052524 034065 050040 .ASCIZ /TUS8 PE 
€3) 002130 051105 020106 054105 

€3) 002136 051105 000 

(2) 002142 .EVEN 


M1 
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3819 3+ 
3820 ;THE PROTECT TABLE IS USED BY THE MONITOR TO WARN THE OPERATOR WHEN HE 
3821 ;TRIES TO TEST THE LOAL DEVICE. 
3822 3-- 
3823 
3824 002142 BGNPROT 
(3) 002142 LSPROT:: 
3825 002142 000000 .WORD 0O ;DEVICE CSR 
3826 002144 177777 . WORD -1 3;NO MASS BUS 
3627 002146 177777 . WORD -1 sNO ORIVE 


3828 002150 ENDPROT 
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Ni 


3+ 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS Cw. TEST. 


; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH T 


DISPATCH 9 


. WORD 
LSDISPATCH: : 


5588855 


SEQ 0013 
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.SBTTL DEFAU.T HARDWARE P-TABLE 


s¢ 
| THE DEFAUL T HARDWARE 


3; THE TEST-DEVICE PARAMETERS. 
: IS IDENTICAL TO THE STRUCTURE OF 


3 --*- 
BGNHW 8 8=6OF PTBL 


P-TABLE CONTAINS DEFAULT VALUES OF 


THE STRUCTURE OF THIS TABLE 
THE HARDWARE P-TABLES. 


ADOR. 
sTEST ORIVE ZERO AND ONE 
sNOT PDT TYPE INTERFACE 


L10001: 


SEQ 0014 


10001 -L 
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3880 


zs 
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.SBTTL SOFTWARE P-TABLE 


‘< THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
3; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


6BGNSW 


m m 
Ww 
x 


SFPTBL 


oOCOr Fre rr @®@ 


$ 
sPRINT UNIT PROTOCOL 


s TAPE LENGTH 
sPRINT STATISTICS AT EOP 
PRINT DATA BUF ON COMP 


ST 
SUMMARY CTST9) 


sTEST 3-ORIVE O ONLY FLAG 


L10002: 


SEQ 0015 


L 10002 -L 


GLOBAL AREAS 
CZTUF Pil 
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LOOX LOE OER LOE LOD OR ODD DL LD RL RR FR RFR FY FR FFF EEF EAE AOAC ON 
ea ee ee dd dd dd 
ee ee ee et Re Ba tt Bt Net Ba Ne Be et et St Be Nat Bt Nt Nd et et Bet Bat Be Se ee? a a ee a ae a ee Oe ee 8 ee Oe 8 8 8 


002230 


002230 
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. TITLE GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 


: THE GL GLOBAL EQUATES SECTION _— PROGRAM EQUATES THAT 
s ARE USED IN MORE THAN ONE TEST 
t- 


EQUALS 
‘ 
; BIT OIF INITIONS 


EVENT FLAG DEFINITIONS 
s €F32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


5 

EF .START== 32. START COMMAND WAS ISSUED 
EF .RESTART== Si. 
EF .CONTINUE== 30. 
EF .NEW== 29. 
EF .PWR== 28. 
& 


4 

3 PRIORITY LEVEL DEFINITIONS 
é 

PRIO7<= 340 


TINUE COMMAND WAS 
A NEW PASS HAS BEEN STARTED 
A POWER-FAIL/POWER-UP OCCURRED 


ae 
2 
5 


E2 
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CZTUAF PLL 25 -JAN-84 08:09 GLOBAL EQUATES SECTION SEQ 0017 
(1) 000300 PRIO6== 300 
(1) 000240 PRIOS=*= 240 
(1) 000200 PRIO4*= 200 
C1) 000140 PRIO3== 140 
(1) 000100 PRIO2*= 100 
(1) 000040 PRIO1== 40 
$32 000000 PRIOOs= 0 

4 
te sOPERATOR FLAG BITS 
1 

(1) EVL== 4 
C1) 000010 LOT== 10 
(1) ADR== 

C1) 000040 T0U-= 40 
(1) 000100 ISR== 100 
<1) UAM== 

(1) 000400 BOE== 400 
(1) 001000 PNT©= 1000 
(1) 002000 PRI== 2000 
(1) 004000 IxXE== 

(1) 010000 IBE== 10000 
(1) 020000 IER== 

(1) 040000 LOE== 40000 
ete 100000 HOE== 100000 
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.SBTTL ERROR CODE EQUATES 


;THE ERROR CODE OFFSET VALUES 
;USED BY ROUTINE ‘LOG’ 


: INCREMENT STATISTICS. 


TO 


IN ADDITION, SYSTEM SETUP OR RUNTIME ERRORS ARE: 


ALL UNITS ABORTED 
MORE THAN 8. UNITS (16 DRIVES) REQUESTED 
NEITHER DRIVE SELECTED FOR THIS CONTROLLER 


ALL THE ABOVE ARE CLASSIFIED AS SYSTEM FATAL 


: 
INDEX (BY RS) INTO DEVICE’S DATA BLOCK AND 


SEQ 0018 
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.SBTTL GENERAL EQUATES 
RADIAL SERIAL CODES: 


RSCMND == 2 “COMMAND” PACKET 
RSCONT == 20 "CONT INUE ” SINGLE BYTE 
RSXON == 20 KON" SINGLE BYTE 


RSXOFF == 23 3"XOFF” SINGLE BYTE 
RSINIT == 4 s“INIT” SINGLE BYTE 
ATA == i s"DATA” PACKET 

R #= RSCMND ;"END” PACKET FLAG IS “COMMAND” 
SEND PACK SIZE: 

R Z == 14. sTOTAL BYTES IN COMMAND PACKET 
:MESSAGE PACK SIZE: 

RSMSIZ == 12 310. BYTES FOR BYTE COUNT INSIDE CMND PACK 

:DATA PACK SIZE: 


RSDASZ == i sTOTAL BYTES IN DATA PACKET 
;DATA + END PACK SIZE 
SONSZ = 


RSDA SZ +RSNDSZ 
3GET CHARACTERISTICS DATA PACKET SIZE 
RSGCOP == 26. sTOTAL BYTES FOR GET — DATA PACKET 
sMINUS THE END PACKET 
sSIZE FOR SENDING COMMAND PACK 
4 DATA PAKS AND END PACK 
:IS SIZE OF RCV BUFFERS 


RSSNSZ == RSMSIZ + 
RCBFSZ== 4sRSDASZ + RSNDSZ 


F THE OP CODES ARE 
RSSEND == 100 ;END PACK DESCRIPTOR 
RSSWR == 3 sWRITE 
RSSRD == 2 =~ 
RSSSEK == 5 3 SEEK 
RSSGET == l2 sGET CHARACTERISTICS 
RSSNOP == 0 :NO-OPERA TION 
RSSNIT «= 1 ; INITIALIZE 
RSSSLF =< 7 ;SELF TEST 
THE SUCCESS CODES ARE: 
ESABO ==-48. :BAD COMMAND FROM HOST 
ESNCRT =2-9, :NO CARTRIDGE 
ESNONX ==2-8, 3NO ORIVE 
==0 COMPLETE SUCCESS 
ESPART ==#-2 ;PARTIAL OP 
ESSK as-32. fa 
ESTRY as} ;RETRYS OCCURRED 
ESW.OC »--11. sWRITE PROTECTED 
ESNOMO «=-33. sMOTOR STOPPED 
ESCMD ==-48., iC 
ESREC ==-55 3BAD RECORD NUMBER 
gy se-17 ;TU CHKSUM ERROR 
se-j], ;SELF TEST ERROR 
ESCKSM*ESCKS 
ESWR=ESCKS 
ESRD-ESCKS 


SEQ 0019 


AREAS 
-P1l 
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25-JAN-84 08:09 


PAGE 9-10 
ERROR MESSAGE DESCRIPTIONS 


He 


.SBTTL ERROR MESSAGE DESCRIPTIONS 


;THE TABLE OF ERROR MESSAGES CADDRESSES). 
;0F THE REA I 


SON. 


RSNTAB: MSNLOG 
MSSFRD 


MSSFWR 
MSRNIT 


MSQRSP 
MSOVRN 
MSCOM 


ABNDXCRS) CONTAINS THE OFFSET 
T'S ABSOLUTE ADDRESS IS RSNTAB + ABNDX(RS). 


SEQ 0020 


AREAS 
-Pil 


002310 
002324 
002342 
002566 


002706 
002722 
002742 
002766 
003002 
003034 
003056 
003116 
003156 
003220 
003262 


MACY11 “aa” 25 - JAN -84 
25-JAN-84 08 


045505 
052125 
020104 
043114 
020104 
047524 
0S2122 
052111 
044503 
052125 
023516 
052122 
047117 
020104 
020104 
047117 
051040 
042504 
042515 
047503 
047503 
042522 
042522 
020126 


042440 
046505 
040504 
052040 
040504 
020122 
044522 
020105 
053105 
043040 
020124 
040511 
042455 
047503 
042522 
020107 
051505 
044503 
047440 
027126 
027126 
047503 
047503 
051105 


08:33 PAGE 9-11 
ERROR MESSAGE DESCRIPTIONS 


Le 


SEQ 0021 


sHERE ARE THE MESSAGES PROPER: 


MSSKER;: : =a 


MSNLOG: : " ASCI2 
MSBDA:: .ASCIZ 
"EVEN 
MSSELF: : .ASCIZ 
MSCOM: : “ASELZ 
MSNOMO: : zASCIZ 
MSNOTP:: .ASCIZ 


.€ 
MSWPRO: : ASCIZ 
EVEN 
MSRNIT: : -ASCIZ 
MSHCHK:: ASCIZ 
MSNIT:: .ASCIZ 
MSPART:: .ASCIZ 
.EVEN 
MSUNIT: : zASCIZ 
-ASCIZ 


MSWRSP 
MSNRSP:: .ASCIZ 
MSORSP: ”-ASCIZ 
MSTOSN:: .ASCIZ 


EVEN 
MSHDRD:: .ASCIZ 
VEN 
MSHOWR:: .ASCIZ 
VEN 


/SEEK ERROR/ 
/SYSTEM ERROR/ 
/BAD DATA IN PACKET/ 
sHAVE READ CORRECTL 
/SELF TEST ERROR/ sMICRO DIAGNOSTIC FAILED, BUT DEVICE COU 
sSEND AN END PACKET. 
/BAD DATA W-O DATA CHECK ERR AT TU/ ;PREVIOUS DATA CHECK 
sE NOT DUE TO DEVICE READ OPERATION 
/MOTOR STOPPED/ iDEVICE COULD NOT GET ANY MEANINGFUL SIG 
; . 
/CARTRIDGE NOT IN PLACE/ ;NO MEDIA OR BAD SWITCH 
/WRITE PROTECTION/ sCARTRIOGE WRITE PROTECT TAB MISSING OR 
sSWITCH BAD 
/RECIEVING INIT/ sDEVICE SENT INIT REQUEST 
/HOST FOUND PACKET CHECKSUM yo sDEVICE SENT PACK WITH 
« 
‘CAN'T INIT/ sDEVICE SENT BYTE OTHER THAN “CONTINUE” 
sDURING INITIALIZATION 
/PARTIAL OPERATION/ sEND OF MEDIUM ENCOUNTERED 
/"NON-EXISTENT” ORIVE/ ;DEVICE RECV’'D TOO LARGE ORIVE NUMBER 
/BAD COMMAND/ sDEVICE COULD NOT UNDERSTAND HOST 
/BAD RECORD NO./ sDEVICE RECV’D TOO LARGE A RECORD NUMBER 
/WRONG SUCCESS CODE/ sHOST COULD NOT DECIPHER CODE IN END PAC 
/NO RESPONSE/ ;TIME OUT WAITING FOR BYTE IN RCV BUF ON 
\NINDECIPHERABLE FLAG orre> sHOST COULD —h UNDERSTAND 1ST BYTE 
FROM TU AS PROPER PROTOCOL 
/TIME OUT ON SEND/ sDLV ‘READY’ NEVER WENT HIGH 
/RECOV. DATA CHECK ERR ee eg 3TUS& RESPONDED WITH “DATA-CHE 
3 
/RECOV. DATA CHECK ERR ON WR OP/ 


READ OP. ;HOST RETRYCS) SUCCES 
/UNRECOV. DATA CHECK ERR ON RD OP/ 


sDEVICE COULD NOT READ HEADER 
sDIAGNOSTIC HUNG. BETTER RE -BOOT 
sHOST DATA CHECK A ue ERROR, DEVICE MAY 


;SAME BUT WR OR WR VERIFY OPER 
ON READ OP. 


;TUS8 RESPONDED WITH “DATA-C 
;ERROR ;RETRIES UNSUCCESSFYU 
/UNRECOV. DATA CHECK ERR ON WR OP/ ;SAME BUT WR OPERATION 
/DOLV ERROR IN RECEIVE’ ;DLV ERROR (THE CONTENTS PRINTED OUT) 


AREAS 


P11 


003310 


25-JAN-84 08:09 
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000000 SYSTAT:: .WORD 
000000 TAPLEN:: .WORD 
000000 DEVPTR:: .WORD 
000000 RCFLG:: .WORD 
000000 RCBCNT: .WORD 
000004 FTLNM: . WORD 
000000 DONE: : . WORD 
000000 IDPTR:: .WORD 
000000 TSTTOP: .WORD 
000010 MXRTRY:: .WORD 
000000 BLKER:: .WORD 
000000 SECREC:: .WORD 
000000 PRNSIZ:: .WORD 
000000 ALLGON:: .WORD 
000000 TEST9:: .WORD 
: 

177777 

000226 


MISC STORAGE AND EQUATES 
.SBTTL MISC STORAGE AND EQUATES 


Je 


SEG 0022 


sSYSTEM STATUS WORD 

sBI1T7-BIT15 = 1ST BYTE OF PACK RCVD 
sBITOS = NOT USED 

sBIT04 = NOT USED 

sBITOS = NOT USED 

sBITO2 =RETRY BAD FLAG BYTE 

sBITOL = RETRY OCCURRING 

sBITOO = CHKSUM IS ODD (TEMP STORAGE ) 


3@ RECORDS 
3->NEXT UNIT ADDRESS 
sTEMP STORE FOR GTBYTE 


IF 
;PTR IN TESTIO MACRO 
Cen TO CURRENT TEST 

OF RETRIES, BEFORE “HARD” ERROR 

;RECORD ® FOR ERROR REPORT 
sRECORD @ TO START AFTER SWITCHING TRACKS 
;SIZE OF PACK FOR “PRNPAK 
sSECONDARY DON’T PRINT STATISTICS FLAG. 
3#eee6 FLAG THAT INDICATES IF IN TST 9 


TIME OUT CONSTANTS: 


CSNRDY:: 
CSRCVB: : 


sTIME OUT ON SEND DELAY (OLV NOT READY) 
345 SEC. MULTIPLIER REWIND TIME 
;CAN BE OPTIMISED PER CPU 


Ke 
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CZTUUF .P11 25-JAN-84 08:09 DATA BLOCK FORMAT SEQ 0023 
acon .SBTTL DATA BLOCK FORMAT 
4189 ee ene eee eee eee eee ene eee eee teen ee ee seer eee e neers renee eee 
4190 rR --> TOP OF 1 OF THE 8 DATA BLOCKS (1 PER UNIT) DURING EXECUTION 
4191 ;8R5 IS THE STATUS WORD CONTAINING: 
4192 ;BIT1S = ABORTED 
4193 ;8I1T14 = SEND “BREAK” 
4194 ;B8I1T13 = RETRY FLAG BYTE ERROR CDATA PACKS) 
4195 ;BIT1i2 = TEMP STOR WRITE MACRO 
4196 sB8IT11 = UNIT NOT BEING TESTED 
4197 ;BIT10 = RETRYING DATA ERROR 
4198 sBIT9 = TUS& CHKSUM ERROR 
4199 ;BIT8 = RD/WR OPERATION 
4200 sB8IT7 = NORMAL /REDUCED THRESHOLD (MACROS) 
4201 ;8IT6 = HOST DATA COMPARE ERROR 
4202 ;sB8ITS = WR VERIFY OPERATION 
4203 ;8IT4 = TYPE OF PAK SENT ODATA i1CMD 
4204 ;sBIT3 = RETRY FLAG BYTE ERR.CSEND COMMAND PACK) 
4205 ;B81T0,1,2*UNIT NO. 
4206 000000 STATUS == 0. sDEVICE STATE 
4207 000002 RETRY ss 2. 3@ OF RETRIES 
4208 0000C4 ABNDX as 4. sERROR NUMBER FOR LOG 
4209 3RO ;STORAGE FOR REGISTERS USED IN TEST BODY 
4210 sR1 s;STORED WITH SWAPOW 
4211 ;R2 sRETRIEVED WITH SWAPIN 
4212 3R3 : 
4213 3R4 : 
4214 000020 TSTPC ss 16. sPOINTER TO NEXT EXECUTABLE TEST INST. 
4215 000022 RCSR ss 18. 3;0LV RCV STATUS ADDRESS 
4216 000024 RCDB ss 20. ;0LV RCV DATA Ss 
4217 000026 XMSR =e 22. 30LV SND STATUS ADDRESS 
4218 000030 XMOB ss 24. sOLV SND DATA yore 
4219 000032 x ld 26. TS TO RECEIVE 
4220 000034 XSFLG zs 28. 3 THE EXPECTED FLAG OF 1ST P 
4221 000036 XSCNT as 30. 3; THE EXPECTED COUNT OF IST PACKET 
4222 sFOR MULTIPLE PACKET RECIEVES (MAX.4) 
4223 3 BLKW 8. ;CONSECUTIVE XSFLGS AND XSCNTS 
4224 000060 DR == 48. ;0R==0 OR 1; BITS.9 DRIVE SELECTED BY OPERATOR 
4225 000062 TRK ss 50. ;COUNTER FOR TRACK NUMBER 
aaa 000064 REC ae 52. sRECORD (BLOCK @) 
4228 TMP ss 54. ;TEST MACRO REGISTER 
4229 000070 fae 56. ;THE @ OF BYTES FOR SENDING PACKET 
4230 000072 PATTEN ==2 58. ;DATA PATTERN-LOWER BYTE USED 
4231 000074 DLV ss 60. ;CONTENTS OF RCDB ON DLV E 
4232 000076 succsS as 62. sSUCCESS CODE OF LAST END PACKET 
asae 000100 CMDSNT == 64. ; TYPE OF COMMAND CURRENT IN EVEN BYTE; BIT15==VE 
4235 000102 RCVBUF =s 66. ;sPOINTER TO 542. BYTE BUFFER (4 DATA PAKS + END 
4236 000104 PKPTR == 68. POINTER TO TOP OF PACKET 
4237 000106 XSPTR ea 70. ;sPOINTER TO CURRENTLY USED XSFLG OR XSCNT 
4238 000110 WRTNO =e 72. ;THE @ OF Si2. BYTE BLOCKS WRITTEN DRO 
4239 000112 WRITN1 ss 74, ;THE @ OF Si2. BYTE BLOCKS WRITTEN DRi 
4240 000114 RDNO ss 76. ;THE @ OF Si2. BYTE BLOCKS READ DRO 
4241 000116 RON1 =: 78. ;THE @ OF 512. BYTE BLOCKS READ DR1 


GLOBAL 


CZTUUF .P11 


MACY11 30(1046) 25-JAN-864 
25-JAN-84 08:09 


08:33 PAGE 9-14 
DATA BLOCK FORMAT 


;AND THE ERR 


OR LCG. 
;SPLIT INTO A BYTE PER ORIVE: 


Le 


@<«<<«=< 


T4TRY 
BDATA 
AROR 


H 
HARDW 


iTRY 


ee =: es Ge oe oe Ge Ge of GF Se oe =ufee ae 


333988935833 '83 


90. 
92. 
94. 
96. 


3; **#RESERVEDse*s 


;SOFT READ 


;SOFT WRITE 
sRECIEVED INIT 
;BAD FLAG BYTE 


;THEN THOSE CODES WHICH HAVE N TRIES BEFORE ABORT 


;O0LV ERROR ; OVRN 
;BAD DATA ;68DCOM 
;HARD ;HRORD 
;HARD WRIT ;HROWR 
; CHKSM AT HOST ;BOCHK 
;SEEK ERROR TO 3; SKERR 
S WRITE PROTECT ;WRLOCK 
3sNO MOTOR sNOMOT 
SCANT INIT ;CNINIT 
sPARTIAL OP ;PARTL 
3;NO ;NOUNIT 
3C 3; CMNDER 


;NO CARTRIDGE 
;TIME OUT SEND; TOSNDB 


;OTL 


;NOCART 


5 #26446 
3 e#eeeae 


¢ #2eees 
3*eeeee 
;ESCKSM 
sESCKSM 
3 *eeeee 
5 oeeere 
sESWLOC 
;ESNOMO 
3 *eeeee 
sESPART 


err t tt! 
5 oeeeeae 
5 *eeaee 


sESNCRT 


5 e2eeees 


;OFFSET OF END OF STATISTICS CRESERVED) 
ADDRESS 


; VECTOR 


$7Q@ 0024 


;BYTE COUNT SAVED DURING RETRY ON WRITE OPERATIO 
;#eeee FLAG INDICATING MRSP 
3;#@ RESERVED «e 


AREAS 
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25-JAN-84 08:09 


.SBTTL DEVICE DATA BLOCK ALLOCATION 


;TABLE OF DEVICE DATA BLOCK ADDRESSES 


BLKTBL:: 


LSTDEV:: 


;AND STORAGE FOR EACH: 


DEVO: 
DEV1: 
DEVe: 
DEV3: 
DEV4: 
DEVS: 
DEVE: 
DEV?7: 


10 


Me 


BLKSIZ 


SEQ 0025 


GLOBAL AREAS MACY11 mes 1gee? 25-JAN-84 06:33 PAGE 11 
CZTUUF .P11 25-JAN-84 08:0 GLOBAL TEXT SECTION SEQ 0026 


4329 .SBTTL GLOBAL TEXT SECTION 


: 
eee ; NAMES OF DEVICES SUPPORTED BY PROGRAM 
; 
4334 005512 DEVTYP <TUS8 CONTROLLER> 
€4) 005512 LS$OVTYP: 
(3) 005512 052524 034065 041440 ASCIZ /TUS8 CO 
et, 005520 047117 051124 046117 


005526 042514 000122 
C2) -EVEN 


BS 
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CZTULF P11 25-JAN-84 08:09 SYSTEM MACRO DEFINITIONS SEQ 0027 

4375 .SBTTL SYSTEM MACRO DEFINITIONS 

4376 

4377 .MACRO PUSH »REG 

4378 

4379 .NLIST 

4380 .LIST ME 

4381 LI 

4382 MOV REG, -( SP) 

4383 

4384 

4385 .NLIST 

4386 .NLIST ME 

4387 .LIST 

4388 E 

4389 

4390 .MACRO POP,.REG 

4391 

4392 NLIST 

4393 .LIST ME 

4394 .LIST 

4395 MOV (SP )+,REG 

4396 

4397 .MLIST 

4398 .NLIST ME 

4399 .LIS 

4400 : 

4401 

4402 gee 

4403 ;THE MACRO ‘SWAPIN’ RETRIEVES THE TEST REGISTERS WHICH WERE SAVED 

4404 VIN THE DEVICE DATA BLOCK. 

4405 t-- 

4406 

4407 .MACRO SWAPIN 

4408 

4409 NLIST 

4410 LIST ME 

4411 .LIST 

4412 MOV 6.(R5S),RO 

4413 MOV 8.CRS),R1 

4414 MOV 10.(R5),R2 

4415 MOV 12.(R5),R3 

4416 MOV 14.(R5),R4 

4417 

4418 .NLIST 

4419 sNLIST ME 

4420 .LIST 

4421 : 

4422 

4423 gee 

4424 ;THE MACRO ‘SWAPOW' SAVES THE CURRENT STATE OF THE UNIT IN THE ‘Gnive 

aezs ;DATA BLOCK IN SO THAT THE SCHEDULER MAY ‘SWAPIN’ ANOTHER UNIT 
i: - 

4427 

4428 .MACRO SWAPOW 

4429 


4430 «NLIST 


GLOBAL AREAS MACY11 30(1046) 25-JAN-84 06:33 PAGE te 3 

CZTUAF P11 25 - JAN -84 08:09 SYSTEM MACRO DEFINITIONS SEQ 0025 
aa -LIST ME 
aas3 LIST 


GLOBAL 
CZTUF Pil 


AS 


MACYil 30(1046) 25-JAN- +. ronan Rican er tarrrons 


25 -JAN-84 08:09 


THE WRITE no TMPLEMENTS THE 


D3 


SEQ 0029 


COMPLETE PROTOCOL NECESSARY TO BUILD 
AND SUBSEQUENT DATA PACKETS CUNTIL THE BYTE COUNT 


3A COMMAND PACKET 
rCBENT) IS SATISFIED). 


ISETS UP 
3( XSPKNM 


INPUTS 


RESPONSES: 
) AND THEIR FLAG BYTES AND COUNTS CASFLG, XSCNT). CAL 
TO SEND EACH PACKET, 


OUTPUTS - SNOCNTCRS) 
XSPKNM 


THE EXPECTED PROTOCOL THE NUMBER OF “a, e 


AND ‘CHKSUM’ TO CALC. THE PACKET 


- DEVICE BLOCK SRS 
TROUF 


- BUFFER ADDRESS 
UNIT’ . TEST REGISTERS FROM ‘SWAPIN’ 
* @ OF BYTES TO SEND 
* @ OF PACKETS EXPECTED 
XSFLG = FLAG BYTE OF 1ST PACKET 
XSCNT = BYTE COUNT OF 1ST PACKET 
afew 


@ SUBSEQUENT XSFLGS 
x 
¢ AND XSCNTS 


-MACRO TUWRIT PTRN,REC.BCNT,OR,VER, 2A, 28, 2C, 20, 2E, 2F 2G, 2H, 2T 


-NLIST 
T: MOV @TRBUF .RO sMAKE COMMAND PACKET: 
MOvB ° * COMMAND FLAG 
@RSMSIZ.1CRO) S THIS SIZE 
MOVE @RSSUR ,2CRO) s INSERT OP CODE -WRITE 
VER ,.3.CRO) ;VERIFY €1 OR 0) 
MOvB OR ,4.¢ sORIVE @ 
MOVB #020 ,.5.(RO) ; MAINTENANCE _— SWITCH 
CLR 6.CRO) sNO SEQUENCE @ 
HOV BCNT .8.CRO) TOTAL gl TO WRITE 
MOV REC .10.CRO) sAT RECORD N 
MOV ORSMSIZ,R1 3; THE PACKET SIZE PLUS+2 
TST CR1)- ;(FLAG AND COUNT) INTO R 
MOV @RSSNSZ, SNOCNT(RS ) sLOAD THE SIZE TO S 
CALL CHK 3RO --> R1i=COUNT 
MOV R1,CRO) ;PUT CHKSUM IN PACKET 
3;SET UP — 
MOV @RSCONT , XSFLGC RS) 3; THE F 
MOV #1, XSCNTCRS) 3 THE COUNT 
MOV @1, XSPKNACRS ) 3; THE @ PACKETS EXPECTED 
MOV BCNT .R2 ;GET @ OF DATA BYTES 
CALL RSVP 3SEND CAND RETURN TO SCH 
BIT &BIT3,aR5 SFLAG BYTE ERROR? 
BNE T :YES 
BIC 6BIT12,.8R5 sFLAG FOR LAST PACKET 
A: MOV @TRBUF ,RO :sPOINT TO TOP OF BUFFER 
CMP R2,0128. ;START DATA PACKETCS) 
BHI B ;sB8CNT > 128.! 


ES 
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CZTUUF .P11 25-JAN-84 08:09 SYSTEM MACRO DEFINITIONS SEQ 0030 
4501 MOV R2,R1 ;B8CNT<128. 
4502 BIS *BIT12.aR5 350 LAST PACKET NOW 
4503 BR C sUSE INING COUNT 
4504 B: #128. ,R1 ;USE 128. BYTES 
4505 C: MOVE R1,10RO) ;COPY COUNT TO BUFFER 
4506 MOV »R3 eg pk TO LOAD BUFF 
4S5C7 MOVB ORSDATA, BRO sFLAG FIRST 
4505 TST CRO)>+ sSKIP COUNT 
4509 OD: MOVE PTRN,CRO)> s INSERT DATA 
4510 DEC Re sMORE ? 
4511 BHI 8) 3; YES 
4512 MOV @TRBUF ,RO 3-->TOP AGAIN 
4513 MOVE 1€RO),R1 sGET COUNT 
4514 Bie 0177400,R1 sZERO SIGN EXTEND 
4515 MOV R1.,SNDOCNTCRS) sHOW MANY TO SEND PLUS 
4516 ADD 04, SNOCNTCRS) sFLAG, COUNT , CHKSUM 
4517 ADD #2,R1 ;COMPENSATE FOR FLAG + C 
4518 CALL CHKSUM sFOR CHECKSUM CALC. 
4519 R1,CRO)- 3CHKSUM INTO PACKET 
4520 sEVEN ON 
4521 MOVB R1,CRO)> sBYTE BOUNDARY 
4522 BIT 46IT12,aR5 sLAST DATA PACKET? 
4523 BEQ E $ 
4524 MOV @RSEND,XSFLGCRS) ;YES-EXPECT ‘END’ 
4525 MOV @RSNDSZ.XSCNTCRS) ;OF THIS SIZE 
4526 MOV 01, XSPKNACRS ) :AND 1 PACKET 
4527 BR 3; SEND 
4528 E: MOV eRSCONT, XSFLGCRS) sCNOT LAST), EXPECT ° 
4529 MOV #1,XSCNTCRS) sAND 1 BYTE 
4530 MOV #1, XSPKNMCRS ) ;AND 1 PACKET 
4531 F: CALL RSVP sSEND PACKET 
4532 ;AND RETURN TO SCHEDULER 
4533 BIT #BIT3,aR5 SFLAG BYTE RETRY? 
4534 BNE T sYES 
4535 BIT @6IT10,aRr5 *RETRY DATA ERROR? 
4536 BNE G ;VES 
4537 SUB 128. ,.R2 sNO,. MORE DATA TO SEND? 
4538 BHI A 3; YES 
4539 BR a 3NO 
4540 G: TURTRY REC,BCNT,OR ;RETRY HERE 
4541 BIT @BITLO!BIT3.8R5S ;RETRY AGAIN? 
4542 BNE G :YES 
4543 rH: NOP ; DONE 
4544 
4545 ~NLIST 
4546 -NLIST ME 
4547 LIST 
4548 .ENOM 


rs 


GLOBAL AREAS 
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PAGE 14 
25-JAN-84 08: SYSTEM MACRO DEFINITIONS SEQ 0031 


2ee 
3; THE SEEK MACRO IMPLIMENTS THE COMPLETE PROTOCOL TO INITIATE A SEEK 
4554 a 


iSETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
3(XSPKNM) AND THEIR FLAG BYTES AND Pcs phy (XSFLG, XSCNT). CALLS 
Pa: SEND EACH PACKET, AND ‘CHKSUM’ TO CALC. THE PACKET 


INPUTS - DEVICE BLOCK &@RS 
UNITS TEST REGISTERS FROM SWAPIN 
ADDRESS 


TRBUF - BUFFER 


OUTPUTS - 
XSPKNM = @ OF PACKETS EXPECTED 
XSFLG = FLAG BYTE OF 1ST PACKET 
XSCNT = BYTE CCUNT OF 1ST PACKET 
, 64 
# SUBSEQUENT XSFLGS 
‘ > 
‘ # AND XSCNTS 
, #66 


: 


-MACRO TUSEEK REC.OR,?A 


-NLIST 

-LIST ME 

4581 LIST 

4583 Re 


@TRBUF .RO 3-->CPOINT TO) XMIT BUFF 


COMMAND MESSAGE PA 


ORSMSIZ.1(€RO) 
@RSSSEK ,2(RO) 
REC.10.CRO) 
OR.4.CRO) 


CHKSUM 
R1,(RO) 


@RSSNSZ, SNDCNTCRS) 
@RSCMND , XSFLGCRS) 
@RSNOSZ. ss se 


#1. . XSPKNMCRS 
RSVP 
sone ane 


sFORM 
; THIS BIG 
CODE IS 


XPECT ONLY 1 PACKET 


; SEND 

;AND RETURN TO SCHEDULER 
<i CFLAG BYTE ERROR) 
3Y 


GS 
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4608 
4609 -NLIST 
4610 -NLIST ME 
4611 -LIST 


4612 .ENDM 


H3 
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THE RETRY MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
- RETRY CREAD OPERATION) SEQUENCE. 


iSETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
;(XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
Pi SEND EACH PACKET, AND ‘CHKSUM’' TO CALC. THE PACKET 


INPUTS - DEVICE BLOCK &RS 
TRB FER ADDRESS 
UNITS TEST REGISTERS FROM SWAPIN 


OUTPUTS - ne og = @ OF BYTES TO SEND 
= @ OF PACKETS EXPECTED 
XSFLG. * FLAG BYTE OF 1ST PACKET 
XSCNT = BYTE COUNT OF 1ST PACKET 
. ae6 
* SUBSEQUENT XSFLGS 
i > 


a *« AND XSCNTS 


. se 


-MACRO TURTRY REC,.BCNT,.OR, 7A, 28, 2C, 20, 7E 


-NLIST 
.LIST ME 
Ist 


OTRBUF RO ;FORM CMND PACK: 
BRO 


@RSMSIZ.1(RO) ;THIS BIG 

@RSSRD .2CRO) ;O0P CODE -READ 

REC .10.CRO) ;THIS RECORD 

DR,4.CRO) ; THIS DRIVE 

3(RO) :PRESET NORM THRESHOLD 
;sREDUCED? 


MOVB 

MOVB 

CLRB 

TSsTs 

E 3NO 

INCB 3CRO) 3; YES-CHANGE THRESHOLD 
E: MOV BCNT .8.CRO) ;@ BYTES DESIRED 

MOVB €020,.5.(RO) sMAINTENANCE MODE 

CLR 6.CRO) 3NO QUENCE @ 

MO ORSMSIZ,R1 :SIZE OF PACKET 

TST CR1)> sPLUS FLAG+COUNT INTO R1 

MOV @RSSNSZ, SNDCNTC(RS) ;SET UP SIZE TO SEND 
CALL 
MOV 


CHKSUM ;FORM CHECKSUM R1=COUNT 
R1.CRO) ; INSERT IN PACKET 


MOV BCNT,.R1 3;SET EXPECTATIONS: 

;CALC @ OF cag PACKETS 
MOV @xSFLG.RS OFFSET OF FLAG 
ADD a ;ABS. ADDR. OF XSFLG 


;PRESET 
A: INC R2 ;@ PACKETS EXPECTED 


GLOBAL AREAS 
CZTUUF P11 


3 
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25-JAN-84 08:09 SYSTEM MACRO DEFINITIONS 
C: 
NLIST 
-NLIST ME 
ped 


ORSDATA,(R3)>+ 
4132. eCR3)> 
tal 


A 

Re 

R2, XSPKNMCRS ) 
ORSEND ,CR3)>+ 

@RSNDSZ ,CR3) 


RSVP 


SEQ 0034 
;LOAD XSFLG 
;AND EXPECT COUNT 
sNEG RESULT LAST TIME 
;LAST TIME! 
sMORE TO 9 
; ADO ONE FOR END PACK 
;SAVE @ PACKETS TO EXPEC 


sEXPECT AN 
; THIS BIG-14. BYTES 


; SEND 
;AND RETURN TO SCHEDULER 


JS 


GLOBAL AREAS MACY11 30(1046) 25-JAN-84 08:33 PAGE 16 

CZTUUF .P11 25-JAN-84 08:09 SYSTEM MACRO DEFINITIONS SEQ@ 0035 
4690 
4691 ‘THE READ MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
pre : READ SEQUENCE. 
4694 ISETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
4695 ;(XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
4696 ;'RSVP’' TO SEND EACH PACKET, AND ‘CHKSUM’ TO CALC. THE PACKET 
4697 ; CHECKSUM. 
4698 ; 
4699 ; INPUTS - DEVICE a oe — 
4700 3 TRB UFFER ADDRESS 
poi 3 UNITS TEST REGISTERS FROM SWAPIN 
4& ; 
4703 ; OUTPUTS - ete sa = @ OF BYTES TO SEND 
4704 : = @ OF PACKETS EXPECTED 
4705 : xSFLG. = FLAG BYTE OF 1ST PACKET 
4706 : XSCNT = BYTE COUNT OF iST PACKET 
4707 3 . #22 
4708 : : * SUBSEQUENT XSFLGS 
4709 3 . > 
4710 5 : # AND XSCNTS 
4711 3 , #e6 
4712 gc 
4713 
pf k .MACRO TUREAD REC,BCNT,.OR,VER, 7A, 28,7C,. 20. 7€ 

1 

4716 -NLIST 
4717 LIST ME 
4718 LIST 
4719 
4720 
4721 E:; MOV &TRBUF .RO :FORM CMND PACK: 
4722 “OvB @RSCMND , SRO sMESSAGE PACK TYPE 
4723 MOVE ORSMSIZ.1CRO) :THIS BIG 
4724 MOVB @RSSRD .2CRO) ;0P CODE IS READ 
4725 MOV REC ,.10.CRO) ;THIS RECORD 
4726 MOVB »4.CRO) ;THIS ORIVE 
4727 MOVE VER .3.CRO) 3; VERIFY 
4728 MOV BCNT .8.CRO) ;TOTAL BYTES TO READ 
4729 MOVE €020.5.CRO) sMAINTENANCE MODE 
4730 CLR 6.CRO) sNO SEQUENCE @ 
4731 MOV @RSMSIZ.R1 ;GET SIZE OF PACKET 
4732 TST CR1I de :;*2 FOR CHECKSUM 
4733 MOV @RSSNSZ. SNDCNT(RS) s;SIZE TO SEND 
4734 CALL CHKSUM sFORM CHECKSUM R1=COUNT 
pit MOV R1,CRO) ; INSERT CHECKSUM 
4737 MOV BCNT,R1 3;SET EXPECTATIONS: 
4738 ;CALC @ OF DATA PACKETS 
4739 MOV @xSFLG,.RS3S :GET OFFSET 
4740 ADD RS,R3 ;ABS. ADDR. OF XSFLG 
4741 CLR Re ;PRESET AS NONE 
4742 A: INC R2 37¢ a ee EXPECTED 
4743 MOV ORSDATA,CR3)-+ ;LOAD XSFLG 
4744 MOV @132.,(R3)>+ ;AND EXPECTED COUNT 


4745 SUB #128. ,R1 :NEG RESULT LAST TIME 


KS 
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CZTUUF .P11 25-JAN-84 08:09 SYSTEM MACRO DEFINITIONS SEQ 0036 
4746 BLOS C sLAST TIME 
4747 BR a ;MORE TO DO 
4748 C: INC R2 ;ADD ONE FOR END PACK 
4749 MOV R2 , XSPKNMCRS ) | SAVE o tage iy TO EXPEC 
4750 MOV ORSEND ,CR3)> sEXPECT AN END ALSO... 
4751 MOV @RSNDSZ ,CR3) sTHIS BIG-14. BYTES 
4752 CALL RSVP SEND 
4753 | AND RETURN TO SCHEDULER 
4754 DO: BIT OBITIO!IBITS,ARS ;RETRY? 
4755 BEG NO. 
4756 TURTRY REC,BCNT,OR ; YES 
4757 BR 9) sANOTHER RETRY? 
4758 B: NOP ;NO 
4759 
4760 
4761 .NLIST 
4762 -NLIST ME 
4763 LIST 


i 


LIST 
. ENOM 
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CZTUUF .P11 25-JAN-84 08:09 SYSTEM MACRO DEFINITIONS SEQ 0037 
4767 ;o¢ 
4768 ;THE SELF ie MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO 
yt a" ‘DIAGNOSE’ SEQUENCE. 
4 
4771 }SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
4772 ;(XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
4773 ;'RSVP’ TO SEND EACH PACKET, AND ‘CHKSUM’ TO CALC. THE PACKET 
4774 ; CHECKSUM. 
4775 : 
4776 ; INPUTS - DEVICE BLOCK a@R5 
4777 : TRBUF - BUFFER ADDRESS 
pi hn ; UNITS REGISTERS TEST FROM SWAPIN 
4779 H 
4780 ; OUTPUTS - SNOCNTCRS) = # OF BYTES TO SEND 
4781 ; XSPKNM = @ OF PACKETS EXPECTED 
4782 : XSFLG = FLAG BYTE OF 1ST PACKET 
4783 ; XSCNT = BYTE COUNT OF 1ST PACKET 
4784 3 . *e6 
4785 3 . *# SUBSEQUENT XSFLGS 
4786 3 . > 
4787 : ; *# AND XSCNTS 
4788 : , *e6 
4789 {> 
4790 
4791 -MACRO TUSELF ?A 
4792 
4793 -NLIST 
4794 -LIST ME 
4795 LIST 
4796 
4797 A: MOV #TRBUF .RO sFORM COMMAND PACKET 
4798 MOVB @RSCMND , BRO ;COMMAND FLAG 
4799 MOVB @RSMSIZ.,10CRO) sSIZE OF MES 
4800 MOVE @RSSSLF ,2CRO) ;SELF TEST OPERATION 
4801 CLRB 3(RO) ;NO IER. 
4802 CLR 4(RO) = DRIVE OR a 
4803 CLR 6CRO) SE 
4804 CLR 8.CRO) :NO BYTES 
4805 CLR 10.CRO> NO RE & 
4806 @RSMSIZ,.R1 :;GET SIZE 
4807 TST CR1)-+ :;+2 FOR CHECK 
4808 MOV @RSSNSZ, SNDCNTCRS) ;SIZE TO SEND 
4809 CALL CHKSUM ;FORM CHECKSUM 
4810 MOV R1,CRO) ; INSERT INTO PACKET 
4811 MOV @RSEND,XSFLGCRS) ;EXPECT END, 
4812 MOV @RSNDSZ.XSCNTICRS) ;:THIS BIG 
4815 MOV #1, XSPKNMCRS ) ;AND 1 PACKET 
4814 ; SEND 
4815 CALL RSVP ;RETURN TO SCHEDULER 
4816 BIT @BIT3.aRs RETRY ?CBAD FLAG) 
4817 BNE a ;YES 
4818 
4819 »NLIST 
4820 »~NLIST ME 
4821 
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CZTUUF PLL 25-JAN-84 08:09 SYSTEM MACRO DEFINITIONS SEQ 0038 


4826 ‘THE TEST ID MACRO INTERFACES THE SUPERVISOR'S TEST DISPATCH TO THE 
4827 ;DIAGNGSTIC'S FORMAT BY IMPLEMENTING CALLS THAT: 1) INITIALIZE THE 
4828 3PC OF THE TEST CODE CTSTPCCRS)), 2) ASSIGN THE 1ST ORIVES. 3) RUN 
prs ;THE TEST, 4) SWITCH ORIVES AND REINITIALIZE, 5S) RUN THE TEST AGAIN. 
48 gs 


4832 -MACRO TSTID ADDRES,7A 


-NLIST 
4835 -LIST ME 
4836 LIST 
4837 MOV ADDRES , TST TOP ;SAVE ADOR OF TEST 
4838 CALL SETUP sINIT UNITS TSTPC 
4839 CALL SETOR ee hat ORVS. 


A ;BR NO 2NOD DRVS 
4843 CALL SETUP ;REINIT UNITS TSYPC 
4844 CALL RUN ;REPEAT TEST 


AREAS 
«P23 


MACY1:% 


30¢ — 25 - JAN -84 
25-JAN-84 08:0 


002226 


005650 


003330 


08:33 PAGE 19 
GLOBAL SUBROUTINES SECTION 


NS 


.SBTTL GLOBAL SUBROUTINES SECTION 


pee 


; THE 


GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES THAT ARE USED 


; TO LINK THE DIAGNOSTIC TO THE SUPERVISOR CTHROUGH THE TSTID MACRO). 


* SWAPOR 
we TO DETERMINE IF TO TEST OTHER ORIVE CFOR ALL UNITS) 
UTS: DRCRS TION 


OUTPUTS: 


SWAPDR:: CLR 
MOV 


1$: 


3$: 


4$: 


6$: 
5$: 


SWPTR: 


MOV 
BIT 
BNE 


) - DRIVE CONF IGURA 
BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV - ADOR. OF LAST UNIT’S DATA BLOCK 


ORCRS) UPDATED TO TEST SAME OR OTHER DRIVE 
CARRY SET IF SECOND PASS NECESSARY 


Re ;sFOR @ OF DRIVE 1’S. 
¢BLKTBL ,.SWPTR ;TABLE ADDR. OF 1ST UNIT 
QSWPTR,RS iGET DATA BLOCK ADDR. 
4BIT15,8R5 3 ABORTED? 
3$ 3 YES 
#BITO,ORCRS) ;DIO OR. 0? 

3 3;NO, DID DOR.1 1ST PASS 
#BIT9,ORCRS) SES; 1 SELECTED? 
3$ ; ALL DONE 
DRC RS) YES, SWAP 
Re s;ONE MORE TO TEST 
aha sLAST DEVICE? 
2, SWPTR :NO-POINT NEXT 
i$ 300 
os ;CCLEAR CARRY),MORE TO 00? 

2 

@TST3,TSTTOP ;IN TEST 3? 

$ IF NOT, SET CARRY € RETURN 


6 3 

DOT3FL 3; TEST3-DRIVE O ONLY FLAG SET? 

5$ ;IF SET, RETURN WITH CARRY CLEAR 
;SET CARRY TO TEST OTHER DRIVES 
;RETURN 


SEQ 0039 


AREAS 
Pil 
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25 - JAN - 84 AL SUBROUTINES SECTION 


0127357 
017705 


003352 
000042 


B4 


SEQ 0040 


see 
3 SETOR - SUBROUTINE TO GET ORIVE FOR 1ST PASS FOR EACH TEST 


: 
: INPUTS: DRCRS) - ORIVE CONF IGURAT rh. 
! BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
1 LSTOEV - ADDR. OF LAST UNIT'S DATA BLOCK 
7 
3 OUTPUTS: ORC RS) IS SET TO TEST ORIVE O OR ORIVE 1 
geo 
SETOR:: MOV @BLKTBL.SETPTR ;TABLE OF ADOR. 1ST UNIT 
18; MOV @SETPTR,.RS sGET DATA BLOCK ADDR. 
CLRB ORCRS) sPRESET AS 
BIT BITS ,ORCRS) 100 DRO? 
BNE 2% sYES 
INCB ORCRS) sNO-USE ORIVE 1 
2s; chp SETPTR,@LSTOEV ;MORE UNITS 
BHIS $ sNO-EXIT 
ADO @2,SETPTR +YES -GET TABLE ENTRY 
BR is sCONF IGURE THAT UNIT 


38: 
SETPTR: .WORD 


C4 
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CZTUUF .Pil 25-JAN-84 08:09 GLOBAL SUBROUTI SECTION SEQ 0041 
4985 Ree 
= ; CLRALL - CLEARS INPUT BUFFER FOR RESPONSE FROM UNIT. 
4 3 
4986 ; INPUTS: BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
pe A ; LSTOEV - ADDR. OF LAST UNIT’S DATA BLOCK 
4a é 
peo 3; OUTPUTS: ALL UNITS BUFFERS CLEARED. 
: 
4991 3; CALLS: CLRBUF 
4993 os 
4994 005730 012737 003352 006022 CLRALL:: MOV O6LKTBL,.CLRPTR ;TOP OF TABLE OF ADDRESSES 
4995 005736 017705 000060 1%: MOV SCLRPTR.RS 3sGET DATA BLOCK 
4996 005742 004737 005770 CALL CLRBUF sCLEAR IT’S RECEIVE BUFFER 
4997 005746 023727 006022 003370 CMP CLRPTR,@LSTDEV ;LAST DEV? 
4998 005754 103004 BHIS 2s 3s YES 
4999 005756 062737 000002 006022 ADD @2,CLRPTR 3-- NEXT 
005764 000764 1% 3 CONT INUE 


5000 BR 
5001 005766 000207 2s: RE TURN 


— men 
Pn pet pee pe et 


AREAS 
-Pil 


25- 


010046 


010446 
016500 
012704 
005020 


162704 
001374 


012604 


012600 
000207 
000000 


MACY11i 30(1046) 25-JAN- en 
JAN -84 08:09 


D4 
‘SUBROUTINES SECTION 


ee 


RCBF SZ 
s OUTPUTS: CLEARED 
3 -- 


CLRBUF:: PUSH RO 


PUSH R4 


MOV 

18: CLR CRO)> 
Sus @2,R4 
BNE 1% 
POP R4 
POP RO 
RETURN 

CLRPTR: .WORD 


CLRBUF - CLEARS 1 UNIT'S 
INPUTS: RCVBUFCRS) Is BUFFER START 

RCBFSZ - SIZE OF ght BUFFER IN BYTES 
Poly OF BUFFE 


sSAVE RO 

MOV 

s5SAVE R4 

MOV 

MOV RCVBUF CRS) ,RO 
@RCBF SZ ,.R4 


: 
sRESTORE 
MOV 


INPUT BUFFER. 


RO, -(SP) 


R4, -(SP) 

3GET ADORESS OF BUFFER 
sare IN BYTES 

12 BYTES LESS 

MORE 


(SP )+,R4 


MOV CSP)+,RO 


sEXIT 


SEG 0042 


GLOBAL AREAS 
CZTUUF Pil 


006070 
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25-JAN-84 08:09 


003326 


000020 
003370 


003326 


° 

; INPUTS 

3 

: 

; OUTPUTS: 

é 

Tain 

SETUP:: CLR 
MOV 

1$: MOV 
MOV 
CMP 
BHIS 
ADD 

2s: RE TURN 


E4 


AL SUBROUTINES SECTION 


; "SETUP - a WITHIN EACH TEST TO INSERT BEGINNING ADDRESS OF THE 
TEST INTO ALL UNITS TEST PC’ 
TSTTOP LOADED WITH TEST ALGORITHMS STARTING ADOR. 


BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV - ADDR. OF LAST UNIT’S DATA BLOCK 


TSTPCCRS) FOR ALL UNITS 
DONE - CLEARED 


DONE sNOT DONE YET 
4BLKTBL ,IDPTR ;TABLE TOP ADDR 
S DATA BL 


BIOPTR.RS sDEVICE’ OCK 
TSTTOP. TSTPCCRS )s INSERT PC FOR TOP OF TEST 
IDPTR,@LSTDEVY ;ALL UNITS SET? 


es sYES 

2, I0PTR sNO.GET NEXT POINTER 
1% sSET HIM UP 

1: DONE 


SEQ 0045 


AREAS 


P11 
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006122 
003324 
007172 


010616 


F4 


08:35 


see 
; RUN - IMPLEMENTS THE CALLS TO SEND i: > hed RECEIVE PACKETS, THEN 
‘ CHECK ANSWERS DURING TEST RUN TIME 

s INPUTS: DONE 

3; OUTPUTS: NONE 

Ree 


RUN: : CALL NXTST sMAKE AND SEND NEXT PACK TO ALL 
s;UNABORTED UNITS 
TST DONE 3; COMPLE TE 
BNE 2$ ;YES 
CALL GETANS s;NO,GET ALL RESPONSES 
BREAK ;SUPERVISOR CHECK 
TRAP 
CALL CHKANS ;CHECK ALL RESPONSES 
BR RUN sCONTINVE TILL DONE 
2s: RETURN 


SEQ 0044 


CsBRK 


5093 


ejerevereret- 
ll cell soe ool aoa oe 
ed Ned ted et et ee 


33 


AREAS 
-Pll 


003352 
175156 


000010 
020000 
000400 
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003314 


003310 


003310 


08:35 PAGE 25 


NXTST / THE SCHEDULER 
.SBTTL NXTST / THE SCHEDULER 


ERROR, IN ORDER TO SE 


G4 


i¢ 
NXTST - rt Spek EXECUTION ers EACH UN-ABORTED UNIT’S TEST 


SEQ 0045 


EO 
PHERABLE FLAG BYTE’ 
INITS 


NON-RETRYING UNITS IF oy a pele IF NO RETRIES,OISPATCH ALL 
UNITS IN ROUND ROBIN FASHION 


INPUTS: 


OUTPUT 


NXTST:: 
1$: 


3$; 


78: 


5$: 


S: 


TOP OF 


(IMPLIED) DATA BLOCKS. 
BLKTBL - DATA BLOCK ALLOCATION TABLE 


LSTDEV - ADDR. OF LAST UNIT’S DATA BLOCK 


ERRSF IF ALL UNITS ARE ABORTED.CTO NOTIFY APT) 
SYSTAT IS UPDATED 


@BLKTBL .DEVPTR 
SDEVPTR RS 
ars 

es 

+ la ORS 
gerT13, RS 
earte, aRS5 


eee 
@BIT2,SYSTAT 
@B1T13,8R5 


23 
oe 
@BIT1,SYSTAT 
6$ 


R2,SAVCNTCRS ) 


3GET 
$ 


; 
sUNIT O TO START 
DATA BLOCK 


? 
s YES... CHECK NEXT UNIT 


sNO-RETRY ‘BAD FLAG‘? 


sYES...CSEND BREAK 


;THEN CMD 


PACK ) 
acme STILL "NO END PACK YET)? 
;RETRYING A WRITE? 


3NO... 
; YES-GET —. 


MOV CRS), 
MOV 8.CRS).R1 
MOV 10.CRS),R2 
MOV 12.CRS), 
MOV 14.(RS),R4 


sCURRENT COUNT = SAVED COUNT? (WHERE WE STARTED) 


3NO...CCONTINUE 


SENDING DATA PACKS) 


:YES-CLEAR RETRY FLAGS 


é 
sCHECK NEXT UNIT. 
3NO-RETRY DATA aod 


sNO...0ON TO UNIT 
3SET ‘RETRY STATUS TO ‘DATA ERROR’ 


;YES.. 


NEXT 
TYPE 


= DEVICE REGISTERS 
6. ).RO 


8.CRS),R1 

10.(R5).R2 
12.CRS).RS 
14.¢(RS),R4 


;SAVE THE BYTE COUNT (FOR WRITE OPERATION) 


3;TO MARK 


HOW MANY DATA PACKS TO SEND 


H4 


AREAS MACY11 30(1046) 25-JAN-84 08:33 PAGE 25-1 
-P1l 25-JAN-84 08:09 NXTST / THE SCHEDULER 
006300 004737 014050 CALL DOBRK sSENO INIT 
006 032715 100000 BIT #B8IT1S,@R5 s ABORTED? 
006310 001020 BNE 2$ sYES... 
006312 052737 000004 0053510 4$: BIS este, SYSTAT sNOT ABORTED-SET RETRY STATUS 
006320 6$: SWAP IN sGET DEVICE REGISTERS 
006520 016 MOV 6.CRS),RO 
006324 016501 000010 MOV 8.CRS),R1 
006330 016502 000012 MOV 10.(RS),.R2 
006534 016505 000014 MOV i2. i aE 
006340 016504 000016 MOV 14.CRS),R4 
006344 004775 000020 JSR PC,@TSTPC(RS) ;00 TEST FOR 
006350 000477 BR NXTRET sTHIS UNIT ONLY-EXIT 
006352 023727 003314 0033570 2s: CMP DEVPTR,@LSTDEV ;TRY NEXT UNIT? 
0063560 10 BHIS NXTST2 sNO 
062737 000002 0053514 AOD #2. ,DEVPTR s YES, - >NEXT 

006370 0019660 BR i$ sGET BLOCK 
006372 005037 006552 NXTST2: CLR ABONM sHERE*NO RETRIES TO 00, NO UNIT ABORTED YET 
006376 012737 003352 003514 MOV @BLKT6L,DEVPTR ;-->UNIT 0 STORAGE 
0064 017705 174704 PERDEV: MOV QDEVPTR RS 3R5-->NEXT DEVICE STORAGE BLOCK 
006410 005715 3$: TST a@RS s ABORTED? 
006412 i BMI sYES 
006414 032715 040000 BIT #B81T14,8R5 sSEND BREAK? 
006420 001407 BEQ sNO 
006422 004737 014050 CALL VES 
006426 032715 040000 BIT @61T14,8R5 sSUCCESSF\L. INIT? 
006432 001016 BNE 4$ sNO ON TO NEXT UNIT 
006434 005715 TST SRS s ABORTED? 
006436 100414 BMI a3 3;YES-ON TO NEXT UNIT 
006440 6%: SWAPIN sNO,GET DEVICE REGISTERS RO-R4 CONTAINING TEST P 
006440 016500 MOV -CRS),RO 
006444 016501 000010 MOV 8.CRS),R1 
006450 016502 000012 MOV 10.CRS).R2 
006454 016503 000014 MOV 12.CRS),.RS 
006460 016504 000016 MOV 14.(R5),R4 
006464 004775 000020 JSR PC,8TSTPC(RS) ##;INITIATE 1 PACKET TRANSMISSION AND RETURN 
006470 005715 4$: TST @RS ; ABORTED? 
006472 100002 BPL 8$ ;NO-ON TO NEXT UNIT 
006474 005237 006552 INC ABONM ;VYES...ONE MORE TALLIED 
006500 023727 0035314 003570 8$: CMP DEVPTR, @ STDEV FALL TUu'S TRIED? 
006506 10 BHIS S$ sYES 
006510 062737 000002 005314 ADD #2. ,DEVPTR "NO THE —- ADDRESS 
006516 0007 BR PERDEV 300 NEXT UN 
006520 022737 000010 006552 S$: CMP #6. ,AB FALL ABORTED? 

S26 001010 BNE NXTRET :NO 
006530 ERRSF 100. ,NOMOR : YES! 
0065350 104454 
006532 000144 
006534 006554 
006536 000000 
006540 11$: BREAK ;SUPERVISOR BREAK 
006540 10442 
006542 005237 003342 INC ALLGON ;SET DON’ T-PRINT STATISTICS FLAG 


14 
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104444 
000207 


000000 
046101 
006600 


08:09 NXTST / THE SCHEDULER 
DOCLN 
NXTRET: RETURN 

020114 047125 NOMOR: “ASCIZ /ALL UNITS ABORT 


sEXIT 


sTHE NUMBER OF ABORTED UNITS 
ED!/ 


TRAP 


SEQ 0047 


CsOCLN 


GLOBAL AREAS 
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000240 
012665 


010065 
010165 
010265 


010365 
010465 


022737 


25-JAN-84 08:09 


027746 


027745 
000070 
007122 


003344 
000210 


J4 


SEQ 0048 


.SBTTL RSVP / XOFF AND SEND A PACKET TO ALL DEVICES 


INPUTS 


AT ONCE. 
ROUTINE. 


ANO C 
SUCCS(RS) - PRESET CL 
STATUS WORD SRS 


;ee 
RSVP - SAVES TEST CODE PROGRAM COUNTER IN tim pe 2 AND UNIT'S REGIS- 
TERS. IF NOT IN TEST 8, POINTS HAT PRECE 
XMIT BUFFER AND SENDS PACK 
SO THAT OTHER UNITS PACKETS MA 
IF IN TEST 8 AND THE ‘UNIT I 
IF re TEST 8 AND THE UNIT IS MODIFIED DOC NOT SEND XOFF 


PROCEED NORMALLY 
s (SP) yt: UNITS PC TO SAVE SINCE RSVP WAS CALLED. 


ET By 4 
Y BE F 


TO — 
RETURNS T 


TO GET ALL UNI 
S NOT MODIFIED, SKIP REST OF 


PACKETS EXPECTED (XSPKNM), AND THE EXPECTED FLAGS AND 
oar COUNTS OF EACH (XSFLG, XSCNT...) ARE LOADED By TEST CODE 


$). 

SNOCNT - @ BYTES ~ SENO 
RECC(RS) - RECORD @ 
TRBUF - BUFFER ADDR. 
XSPKNMCRS ) - ® EXPECTED 
RCVBUF CRS) 


- REC 


BIT 
XSPTR - POINTS TO EXPECTED FLAG 


UPPER BYTE OF XSPKNM . 
PACKET POINTER (PKPTRCRS)) POINTS TO TOP OF UNITS RECEIVE BUFFER 
AREA CRCVBUFCRS)) FOR CURRENT UNIT. 


OUTPUTS: 
RSVP:: NOP 
MOV 
CMP 
BNE 
CMP 
BEQ 
NOXOFF: MOV 
BR 
XFNSND: MOV 
INC 
SND: CALL 
TST 
BMI 


(SP )+, TSTPCCRS) 


@2, TESTS 
XFNSNOD 

@0 ,MRSPCRS) 
ENORSP 
@TRBUF ,RO 
SNO 

@TRBUF = 1 g RO 
SNOCNTCRS ) 
SNOBYT 

ars 

6% 


yoy - UPDATED WITH PACKET OP CODE 
BLKE ORD NUMBER STATISTICS UPDATED IF NOT RETRYING 
PACKET SENT. 


- BITS - DATA CHECK ERROR - CLEARED 
e's bata OPERATION 


= DATA PACK 1 = CMND 
OPERATION 


IS REPLICATED 


sF INISH TEST 
;SAVE WHERE 
: SAVE TEST ey: Om Ss 


YOU WERE IN TEST BODY AND 


MOV -6.C 

MOV R1,8.CRS) 
MOV R2,10.CRS) 
MOV R3,12.CR5) 
MOV R4,14.(CR5) 


:CORRECT FOR RETURN TO SCHEDULER 


3 eoeee 


IS THIS TEST 9 


;#ee200 NO 


3 2#e2eas 


ages IS THIS UNIT MODIFIED 


SEND XOFF ePACKET 


sPOINT 


:;SEND BYTE 


3;R5--> 


;ABORTED? YES.. 


TO XOFF 
TOO. 


TO STATUS BLK 
.QuIT 


GLOBAL AREAS 
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000070 
027746 
000064 


003334 
000035 


000104 


000100 


5$: 


DEC 


INC 


ENDRSP: RETURN 


K4 


SNDCNTCRS ) sNO, SEND MORE 
ree 3IF MORE TO SEND 
@TRBUF ,RO 4-->? FER 
REC(RS),BLKER sPREPARE FOR RECEIVE 
XSPKNMCRS ) , XSPKNM+1(R5) 
SUCCSC(RS) sNO SUCCESS YET 
@BITS,aR5 3NO DATA CHK ERROR yY 
RCVBUF CRS), PKPTRCRS) 
R5,R4 ; ADDRESS 
R4,XSPTRCRS) ;0F 1ST XSFLG 
@BIT4,aRS sPRESET AS DATA PAK 
- hanna sWAS IT COMMAND PAK? 
i eve 
2(RO).CMDSNTCRS) ;YES-SAVE COMMAND 
@BIT4 ARS sITS CMND PAK 
4681IT10,aR5 sRETRY ING? 
= gs ei 3;NO,A READ? 
@BITS.aRs 
— ;GET DRIVE 
3 
— sDRIVE O 
, 
RONICRS) sDORIVE 1 
es “ WRITE? 
48ITS.aR5 SES, os FLAG=1 
oe iat TOO? 
+ eae ;YES-SET VERIFY FLAG 
#BITS.aRrs 3;(NO)-RESET VERIFY FLAG 
WHCHOR ;GET DRIVE NO 
5% ;CARnY =DR1L 
WRTNOCRS ) ;# BLKS WRITTEN DRO 
6$ ;EXIT 
WRTINICRS) ;@ BLKS WRITTEN ORVL 


;RETURN 


3 YES-DON’ T UPDATE ANY STATS OR CONDITION 


3NO 
3;(FOR HARD/SOFT LOGGING) RD/WR FLAG=0 


SEQ 0049 


sREPLICATE LO. BYTE TO HI FOR GTPAKS, C 


ET 
sTOP OF RCV BUFFER GOES THE 1ST PACKET 


8 


esas 
po pe 
VWOnuywvuv 


natawbanact 
NWN 
ww verve O 


pee 


S273 


AREAS 
-P1l 


010146 


013701 
105775 
100412 


010046 


MACY11 wpe Lane? 25 - JAN -84 
25 -JAN-84 08:09 


003346 
000026 


000056 
012654 
000030 


08:35 
SNOBYT 


PAGE 26 
/ OUTPUT A BYTE TO UNIT 


L4 


SEQ 0050 


.SBTTL SNOBYT / OUTPUT A BYTE TO UNIT 


SNOBYT:: 


¢ 
SNOBYT - TEST ‘READY’‘ 
IF TI 


OUT, 


ON INTERFACE. 
ERROR 


IF ‘READY’, SEND BYTE AND EXIT. 


ME ‘ 
INPUTS - RO = POINTER TO BUFFER 
IMPLIE 


IEO UNIT DATA BLOCK 
- CSNRDY 
OUTPUTS | - ROIS I 


NCREMENTE 
ERROR - NOT-READY-TO-SENO TIME OUT 


4$;: 
1$: 


PUSH 


R1 


CSNRDY ,R1 
a. 


RO 


RO 


R1 

i$ 

@TOSNDB ,R4 
LOG 


3% 
Vahl 


sENTER ye ae 
MOV 


Ri, -(€SP) 
sGET TIMEOUT CONSTANT FOR NOT READY ERROR 
— TO SEND? 
:NO. SAVE RO 
MOV RO, -(SP) 
sMONITOR BREAK 
sRESTORE 


TRAP Cs$BRK 


MOV CSP )+,RO 


3; ABORTED? 

$ 

;YES,SET CODE FOR TIMEOUT ERROR 
OG IT 


ORE 
(SP)+,R1 


M4 


AREAS MACY11 30(1046) 25-JAN-84 08:35 PAGE 27 
P11 25-JAN-84 08:09 GETANS / GETS RESPONSES ROUND ROBIN USING “XON” SEQ 0051 

.SBTTL GETANS / GETS RESPONSES ROUND ROBIN USING “XON” 
3° 
: GETANS - IF A UNIT IS RETRYING CLEAR HIS RECEIVE BUFFER (CLRBUF) AND GET 
: HIS RESPONSE Cee retin ELSE, CLEAR ALL BUFFERS (CLRALL) AND 
; GET ALL RESPONSES (GTPKSS8). 
; INPUTS: SYSTAT - SYSTEM STATUS WORD. 
: OUTPUTS: SERVST = -1 IF NO RETRIES. 

007172 000240 GETANS:: NOP 31 UNIT IF RETRY; ELSE ALL 

007174 032737 000006 003310 BIT oBIT1!B6ITe2, SYSTAT sRETRY? 

007202 001010 BNE i$ 

007204 012737 177777 010362 MOV @-1,SERVST ‘ PRESET NO UNITS ape 

007212 004737 005750 CALL CLRALL sCLEAR ALL INPUT BUFFER 

007216 004737 007450 CALL GTPKS8 ;GET ALL REPLYS 

007222 0004 BR 2s sEXIT 

007224 004737 005770 1$: CALL CLRBUF sRETRY-CLEAR 1 UNIT ONLY 

3RS->UNIT BY NXTST 

007230 004737 007240 CALL GTPKS1 ;GET 1 REPLY 

007234 000207 2s: RETURN ; 

007236 000000 GETPTR: .WORD 


AREAS 


-P11 


MACY11 —— 25 - JAN-84 
25-JAN-84 08:09 


003320 


003320 


08:33 


N4 


PAGE 26 
GTPKS1 / GET RETRY RESPONSE-1 UNIT 


SEQ 0052 


.SBTTL GTPKS1 / GET RETRY RESPONSE-1 UNIT 


3+¢ 
; GTPKS1 - SENDS ‘XON’' TO UNIT, GETS FLAG BYTE CIF ANY), CHECKS IF IT IS 


GTPKS1:: 


1$: 


14%: 


2s: 
5$: 


3$: 


INPUTS: 


WHAT WAS EXPECTED. 
PREMAT 


IF IT 
URE-END PACK OR (SINCE MAINTENANCE 


IS, USE EXPECTED BYTE COUNT(XSCNT). IF 
MODE > 


IF IT'S A PREMATURE DATA PACK. ADJUST COUNT, GET REST OF 


PACKET, 


AND REPEAT ABOVE UNTIL NO MORE PACKETS. 
CIMPLIED) UNITS DATA BLOCK 


RSNDSZ - END PACKET SIZE 
; OUTPUTS: SYSTAT UPPER BYTE = FLAG BYTE RECEIVED 


NOP 
d 


#BIT1S,aR5 
4s 


RO 
GRO, SYSTAT+1 
eo 
RO, ORSEND 

14% 

cer gaa nce 


1, 


2s 

/ laaeacecaic 
@RSDASZ .RCBCNT 
Re 


RO 

RCBCNT 

3$ 

GTBYTE 
DLVCRS) 

4$ 
@B1T15.8R5 
4$ 

S$ 


Re 
4$ 


;R5->THE UNIT 

;THE OFFSET VALUE OF 
sFORM THE ABSOLUTE ADDRESS 
3R3-->ADDR. OF EXPECTED FLAG 

t) « eaees OF EXPECTED COUNT 
;RO=ADDRESS 

;XON THE DEVICE 

3;#ee TIME CRITICAL 

3#aa--> TO THE BUFFER 

3;#a4GET THE @ OF PACKETS TO RECEIVE 
3#e4SIGN UN-EXTEND 

;#e4HOW MANY BYTES IT SHOULD BE 
;#eeWHAT THE FIRST BYTE SHOULD BE 
;#e4GET THE ALL IMPORTANT FLAG 

3s TIMEOUT? 


;YES 

;-> BYTE RECIEVED 

;SAVE IT AS FLAG BYTE 

31ST BYTE WHAT WAS EXPECTED? 


;YES 
3;NO, WAS IT END PAK? 


3NO 

;YES, USE END SIZE FOR COUNT 

3;AND ASSUME IT'S LAST PACKET: 

sCONTINUE RECEIVE 

;WAS IT DATA? 

3;NO,CHKANS MAY FINO INIT. 

;YES, SET FOR DATA PAK SIZE 

;ONE MORE PACK THAN EXPECTED CEND PACK) 


sRESTORE TO -> NEXT BYTE 
; THAT'S ONE LESS BYTE TO GO 


; DONE 

;GET REST OF PACKET 
; ERROR 

;YES-ALL OVER 

;OR IF ABORTED 

; THEN QUIT 
;CONTINUE RECEIVE 


;ONE LESS PACKET TO GO 
sMORE PACKETS IN TRANSACTION? 


A MACY11 30(1046) 25-JAN- 
Pil 25-JAN-84 08:09 


022121 
022325 
000717 
000207 


020 
0235 


64 08:55 PAGE 26-1 
GTPKS1 / GET RETRY RESPONSE-1 UNIT 


4%: 


EXON: 
EXOFF;: 


CMP 
CMP 


BR 
RE TURN 


BYTE 


BS 


CR1)+,CR1)- 
+. ican 


RSXON 
RSXOFF 


sYES 
oo TO NEW EXPECTED COUNT 


5 ’ 
3; ANO RECEIVE, 
RE TURN 


SEQ 0053 


Co 





GLOBAL AREAS _ MACYI1 301046) 25-JAN-84, 08:33 __ PAGE 29 
CZTUUF.P11 25-JAN-84 08:09 GTPKS8 / GET ONSES (NO RETRIES) SEQ 0054 
5376 .SBTTL GTPKS8 / GET RESPONSES (NO RETRIES) 
5378 cai 
5379 ; GTPKS8 - IF IN TEST 9 AND THE UNIT IS NOT MODIFIED, SKIP THE REST 
5380 : OF THE ROUTINE. OTHE 1 
5381 , SET ALL ABORTED UNITS SERVICED (SERVST: BIT POSITION). UNTIL 
5382 ; ALL UNITS SERVICED (SERVST=0), IF NC MORE PACKETS, SET UNIT 
5383 : SERVICED, ELSE, GET A FLAG BYTE FROM UN 
5384 , ETS LEFT. CHE SEE IF EXPECTED FLAG, 
5385 : ADJUST COUNT IF NOT, GET REST OF PACKET. WAS DATA PACK, 
5386 ; T IN TEST 9, SEND “XOFF” TO ENHANCE THROUGHPUT AND GO ON 
5387 , TO NEXT UNIT CIF ANY). IF IN TEST 9, DO NOT SEND “XOFFF’. 
5388 ; INPUTS: CIMPLIED)UNITS DATA BLOCK POINTED TO SY RS. NONE PASSED. 
5389 ; RSNDSZ - END PACK SIZE 
5390 , RSONSZ - DATA + END SIZE 
i 
3392 ; OUTPUTS: SYSTAT - UPPER BYTE*=1ST BYTE RECEIVED, CURRENT UNIT 
5394 
5395 007450 000240 GTPKS8:: NOP ;GET ALL UNITS RESPONSES XOFF IF DATA PAK (THROU 
5396 007452 022737 000002 003344 CMP e2, TESTS ;eeee0 IS THIS TEST 9 
5397 007460 001006 BNE 18 | 300000 NO 
5398 007462 022765 000000 000210 Pap 80, ,MRSPCRS) ;eeeee IF SO, IS THIS UNIT MODIFIED 
5399 007470 001002 BNE is 30000 YES, CONTINUE NORMALLY 
5400 007472 000137 010166 JP ENDGP& geeeee ELSE, SKIP ROUTINE 
S401 007476 012737 003352 010364 18: MOV @BLKTBL.GTPTR ;->1ST 
S402 607504 017705 000654 GTAGIN: MOV SGTPTR.RS :GET DATA BLOCK 
5403 007510 032715 100000 BIT @81T15,8R5 s ABORTED? 
5404 007514 001404 BEQ 28 NO 
5405 007516 004737 010276 CALL  SETSRV SYES-SET’ SERVICED’ AND 
5405 007522 000137 010124 re) GTDOWN :0M TO NEXT UNIT 
5407 007526 105765 000033 28: TST@ = XSPKNM+1(RS) = 3 NO, ANY PACKETS LEFT? 
5408 007532 001004 BNE 38 sYES 
S409 007534 004737 010276 CALL 3NO-HE’S DONE 
5410 007540 000137 010124 IPP :S0 ON TO NEXT UNIT 
5411 007544 105365 000033 38; DECB 1(RS)  ;NOW ITS ONE LESS PACKET 
S412 007550 017537 000106 003316 MOV RCFLG ;GET EXPECTED FLAG 
5413 007556 062765 000002 0001 ADD R5) --> COUNT 
5414 017537 000106 003320 MOV @XSPTRCRS).RCBCNT ;AND EXPECTED COUNT 
S415 007572 022737 000002 003344 CMP @2, TESTS ;eeeee IF TEST 
5416 007600 001404 BEQ 18 30000 DO NOT SEND XON 
S417 007602 012700 007446 MOV @EXON,RO 3-> XON 
5418 ,eeeTIME CRITICAL 
$419 007606 004737 007122 CALL SNDBYT 3@eeSEND IT 
5420 007612 016500 000104 18: MOV PKPTRCRS),RO 1e08- UMERE 1ST BYTE GOES 
S421 007616 004737 010366 CALL =: GT@YTE ;eeeGET IT 
5422 007622 032715 100000 BIT @BIT15. ERS s ABORTED? 
5423 007626 001404 BEQ as SNO-CONT INUE 
S424 007630 105065 000033 CLRB #$XSPKNMe1(RS) sYES-NO HORE PACKETS EXPECTED 
5425 007634 000137 010124 IP GTOOWN :0N TO NEXT 
5426 007640 005300 4s: DEC RO = >BYTE JUST RECEIVED 
5427 007642 111037 003311 MOVB $ @RO,SYSTAT+1 ;SAVE IT 
5428 007646 121037 003316 CMPB sO. RCFLG :IS IT WHAT EXPECTED? 
5429 007652 001436 BEQ GTOK :YES 
5430 007654 105065 000033 UNXPCT; CLRB XSPKNM+1(RS) iNO, MUST BE LAST REPLY 


5431 007660 121027 000002 CMPB BRO, ORSEND sMAYBE AN END PAK? 


DS 


MACY11 30(1046) 25-JAN- 98:55 P 
25-JEN-84 08:09 “Etexse GET RESPONSES (NO RETRIES) SEQ 0055 

001004 SNE Ag sNO 
012737 000016 003320 MOV @RSNDSZ ,.RCBCNT iYES, uae PROPER COUNT 
000406 BR T sAND GET IT 
121027 000001 4%: CMPB GRO, ORSDATA ‘IS Iv DATA? 
001110 BNE GTOOWUN 3NO, ALL OVER, CHKANS WILL Bory ay 
012737 o00222 0033520 MOV @RSDNSZ ,.RCBCNT ‘YES, USE COUNT OF DATA + END PAK SURE TO FOLLOW 
005200 GTUM; INC RO sWHERE TO STUFF THE REST 
005337 003320 5%: DEC RCBCNT :ONE DOWN 
001501 BEQ GTDOWN sNONE TO GO 
004737 010366 CALL GTBYTE sMORE TO GO 
032715 100000 BIT 6BIT15,aR5 s TIMEOUT? 
001074 BNE GTDOWN sYES 
005765 000074 TST OLVCRS) sB8UT OLV ERROR? 
001765 BEQ 5% $ 
105065 000033 CLRB XSPKNM+1 (RS) sYES-LAST TIME 
000466 BR GTDOWN sON TO NEXT 
005200 GTOK: INC RO sNEXT PLACE IN BUFFER 

S PHOSAESNASSSEESLASEESESEELEEASESESEHSOESESSEESESESESESESESEESOESESESSEASESESESESES 
022737 000002 0033544 18: CMP @2,TEST9 3eee REV.- IF, NOT TEST 9 
001022 BNE 7% 3ee¢ REV.- THEN, NO MRSP HANDSHAKING REQUIRED 

PUSH RO | geee REV.- ELSE. TEST MRSP HANDSHAKE . 
010046 a MOV RO, -(SP) 
012737 000002 010274 MOV @2,.MRSOLY 3ee¢ REV.- DELAY FOR WAIT LOOP 
3¢ee REV.- THIS IS THE BEGINNING DELAY LOOP 
005000 2s: CLR RO 3eee REV. - 
005300 38: DEC RO 3000 REV. - 
001376 BNE 3$ 3ee0 REV. - 
005337 010274 DEC MRSOLY 3ee@ REV. - 
001372 BNE ag 3eee REV.- THIS IS THE END OF DELAY LOOP 
105775 000022 TST8 SRCSRCRS ) 3eee REV.- IF, DONE SET 
001066 BNE ERRMOD 3ee0@ REV. - THEN, IT’S AN ERROR BECAUSE 
300 REV. - THERE WAS NO MRSP HANDSHAKE. 
012700 010272 MOV @MODRSP ,RO 3eee REV.- ELSE. SEEMS TO BE OK, LETS 
004737 007122 CALL SNDBYT 3eee REV. - SEND A ‘CONTINUE’ AND 
POP RO 3@e0e REV. - SEE IF HANDSHAKE WORKS. 

012600 MOV CSP )-,RO 

ee se ee 
005337 003320 7%: DEC oo sMORE BYTES? 
001413 BEQ 3NO-ALL DONE 
004737 010366 CALL CTBYTE sYES-GET IT 
032715 100000 BIT #68IT15,aR5 3 TIMEOUT? 
001027 BNE GTDOWN :YES 
005765 000074 TST  tleesd sERROR? 
001737 BEQ 8 
105065 000033 CLRB tSPKNe 1( RS) sLAST TIME 
000421 BR GTOOWN sEXIT 
122775 000001 000104 4$: CMPB @RSDATA, SPKPTRCRS) sWAS DATA? 
001015 BNE GTDOWN 3NO, tL DONE 

5 000104 MOV RO, PKPTRCRS ) sSTART OF NEXT PACK NEXT TIME 


obeeesenrssesesasncaaessaasccsccccscccssccccccsaccccccccaacccesecccce 


ae 


AREAS MACY11 30(1046) 25-JAN-84 08:33 PAGE 29-2 
Pil 25-JAN-84 08:09 GTPKS8 / GET RESPONSES (NO RETRIES) SEQ 0056 
010076 022737 000002 003344 CMP @2,TEST9 peee REV.- IF, TEST 9 
010104 001005 BNE eee REV, - SE, 
010106 005765 000210 TST MRSPCRS) seee REV. - ANOIF , MRSP 
010112 001004 BNE GTOOWN 3¢e@ REV.- THEN, NO HANDSHAKE 
Rrrrererirrereryyr ry rrerrrererrrrrrirrrrrr rrr irr errr err 

010114 012700 007447 208; Vv F, 3XOFF AND SEND TO 
010120 0047 007122 CALL iE THROUGHPUT 
010124 062765 000002 000106 GTOOWN: ADD #2. ,XSPTRCRS) SNEXT XSFLG FOR NEXT TRY 
010132 023727 010364 003370 CMP GTPTR, O&STDEV sDONE ONE CYCLE ALL UNITS? 
010140 103005 BHIS 1$ YES 
010142 062737 000002 010364 ADD #2.GTPTR sNEXT UNIT 
01015C 000137 007504 GTAGIN sCONTINVE RECEIVE 
010154 105737 010362 18: TSTB SERVST 3s DONE eee ALL PAKS 

sFROM ALL UNITS? 
010160 001402 BEQ ENOGPS sYES 
010162 000137 007450 JMP GTPKS8 iNO. KEEP TRYING 
010166 ENDGP8: RETURN ;RETURN 
010170 000240 ERRMOD: 3ee¢@ REV. - MRSP ERROR 
010172 PRINTF @MESMRS,UNITNO 
010172 013746 027412 MOV UNITNO, - 
010176 012746 010220 MOV OMESMRS, 
010202 012746 MOV 2, -(SP) 
010206 01 MOV RO 
010210 104417 TRAP CSPNTF 
010212 062706 000006 ADD SP 
016216 000207 RETURN 
010220 047045 051445 022471 MESMRS: a 'gNSSONSOS01SSSSSSBAERROR IN MRSP PROTOCOL! 
910272 MODRSP: .BYTE RSCONT 

010274 -EVEN 

010274 MRSOLY: . 


a 


AREAS MACY11 30(€1046) 25-JAN-84 08:33 PAGE 30 
Pil 25-JAN-84 08:09 SETSRV / SET UNIT SERVICED SEQ 0057 
.SBTTL SETSRV / SET UNIT SERVICED 
3* 
: SETSRV - RESET THE BIT IN ‘SERVST’ CORRESPONDING TO THE UNIT NUMBER. 
INPUTS - SERVST - ‘SERVICED’ WORD 
5 = UNIT @ (BITS O, i. 2) 
OUTPUTS | - SERVST MODIFIED 
5° 
010276 SETSRV: PUSH RS ;SET UNIT SERVICED 
010276 010546 MOV RS, -(SP) 
010300 PUSH RO 
010300 010046 MOV RO, -(SP) 
010302 011505 MOV ars RS ;GET STAT - 
010304 042705 177770 BIC @177770,R5 sMASK UNIT @ 
010310 012700 010342 MOV @SRVTBL ,RO 3->TOP OF BIT TABLE 
910314 005705 1%: TST RS sRIGHT ONE? 
010316 001404 BEQ 2s 3s VES 
010320 062700 000002 ADD #2,R0 sNO, ->NEXT 
010324 005305 DEC RS 31 LESS 
010326 000772 BR 1% 
010330 041037 010362 2s: BIC SRO, SERVST s4OW IT DOWN 
010334 POP RO 
010334 012600 MOV CSP)+.RO 
010336 POP RS 
010336 012605 MOV (SP)+-.RS 
010340 000207 RETURN sRETURN 
010342 000001 SRVTBL: .WORD B6ITO :BIT POSITION LOOKUP TABLE 
010344 000002 -WORDB S6IT1 
010346 000004 WORD BITe 
010350 000010 -WORD 6ITS 
010352 WORD BIT4 
010354 .WORD BITS 
010356 000100 WORD BITE 
010360 000 WORD BIT7 
010362 000000 SERVST: .WORD 
010364 000000 GTPTR: .WORD 


AREAS 
Pil 


MACY11 30(1046) 25-JAN-84 08:35 PAGE 31 
GTBYTE / GET A BYTE FROM UNIT 


25-JAN-84 08:09 


000074 


000074 


GS 


SEQ 0055 


.SBTTL GTBYTE / GET A BYTE FROM UNIT 
*GTaYTE - TEST INTERFACE FOR ‘'READY-TO-RECEIVE’ AND INPUT A BYTE, IF 
: SO. IF NOT, THE FOLLOWING OCCURS: SEND ‘'XOFF’ TO UNIT IN 
: PREPARATION FOR tC CHECK (’ AK’ TO SUPERVISOR). WAIT 
: TO SEE IF A CHARACTER SLOPS OVER DUE TO UART LATENCY. IF 
; ONE DOES THEN MIGHT AS WELL GET SEND ‘XON’ TO 
; THE REST OF THE MES OTHERW » ‘BREAK’ T 
5 'XON', AND TEST FOR LONG TIMEOUT CA 30 SECOND REW a oo 
; LOG ERROR, OTHERWISE REPEAT THE ABOVE a Roy OR TIME OUT 
: REMEMBER TO PRESERVE RO SINCE THE ‘BREAK’ AP CLOBBERS IT 
: 
; INPUTS - RO POINTS TO INPUT BUFFER 
3 - IMPLIED UNITS DATA BLOCK 
: - CSRCVB TIME OUT MULTIPLIER 
3 
; OUTPUTS - RO IS INCREMENTED 
3 - DLV (RS) NON-ZERO ON INTERFACE ERROR. 
3 
3; ERROR - TIME OUT ON RECEIVE 
gee 
GTBYTE:: CLR GBTMP 3; TIMEOUT REGISTER 
MOV CSRCVB ,R4 3 TIMEOUT ERROR CONSTANT (MULTIPLIER) 
1%: TSTB SRCSRC RS) sREADY? 
BPL 3% 3NO 
MOV SRCOBCRS), DL VCRs) sGET ERROR + BYTE 
MOvB DLVCRS), ;COPY BYTE TO BUFFER 
TST DLVC sERROR? 
BMI 4% 3; YES-EXIT 
CLR DLVCRS) 3NO-RESE 
BR sAND EXIT 
3%: DEC GB TMP sDEC T.0. CONSTANT 
BNE 1% ISTILL VALID 
sCODE TO SEE tC DURING LONG SEEK OR REWIND 
sHERE GBTMP=0 
MOV RO,GBTMP2 sRO MUST BE PRESERVED: 
MOV @EXOFF .RO sQUIET THE DEVICE 
CALL yT :B8Y SENDING XOFF 
6%: TST8 @RCSRCRS) sCHARACTER SLOP OVER? 
BMI $ :YES 
DEC GBTMP sNO-WAIT A WHILE 
TSTé GBTMP ;DONE WAITING? 
BNE 6$ 3NO 
BREAK ;YES-NO SLOP OVER 
TRAP CSBRK 
MOV #EXON RO :START DEVICE TALKING 
CALL SNOBYT 2 
MOV GBTMP2,RO sRESTORE RO 
BR eee KLUGE 
S$: MOV GBTMP2 ,RO STORE RO 
MOV CACDBCRS). DLVCRS) :3GET ERROR « BYTE 
MOVE OLVCRS),CRO)> On BYTE TO BUFFER 
TST OLVC(CRS) ; ERROR? 


AL AREAS 


GLOB 
CZTUVF P11 


MACY11 3001046) 25-JAN-84 08:55 PAGE 31-1 
08:09 GTBYTE / GET A BYTE FROM UNIT 


25 - JAN -84 


178: MOV 


7$: CLR 


4%: RETURN 
GBTMP: .WORD 
GBTMP2: .WORD 


H5 


i$ 
@TORCVS ,R4 
LOG 


0 
0 


;YES-EXIT 
EAR 


SAGAIN SAV 


SEQ 0059 


AREAS 
P11 


010722 
010724 


MACYi1 30( 1046) sama 08:35 


25-JAN-84 08:09 


003310 


010724 


003344 


000210 


003370 
010724 


I5 


PAGE 32 
HKANS / CHECK DEVICE(S) RESPONSE 


.SBTTL CHKANS / CHECK DEVICE(S) RESPONSE 


* CHKANS - AS IN "GETANS”, IF RETRYING 00 ONLY 1 
ABORTED 


; 
: 
: 
; INPUTS: 
: 
: 
: 


UNITS. NOTE, IF IN TEST 9 AND THE UNIT IS NOT 
MODIFIED DO NOT CHECK UNIT. 
IMPLIED SYSTAT yt afRETRYING) 
BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV - ADDR. OF LAST UNIT’S DATA BLOCK 


:; OUTPUTS: NONE PASSED. 


CHKANS:: NOP s IF ag Ry A aaa ONE 
5 
BIT #BITLIGIT2, SYSTAT sRETRYING? 
BEQ CHKS 3NO NORMAL 
CALL CHKPKS SYES DO SINGLE UNIT 
3R5 -> UNIT 
BR CHK ANR sALL DONE 
CHKS: MOV OL RTE. « CHKPTR ;YOU KNOW ... TOP OF TABLE 
23: MOV SCHKPTR RS SGET UNIT'S BLOCK ADORESS 
BIT #BITi5, ARS s ABORTED? 
BNE 33 3YES 
CMP 2, TESTS jeseee IS THIS mL o 
BNE 1% 30000 NO-CONTINUE NORMALLY 
CMP 60 ,.MRSPCRS ) jeeeee If SO, IS THIS ro MODIFIED 
BEG 3$ 3#eee0e NO SKIP NEXT INSTR 
1$: CALL CHKPKS sNO, DO THIS GUY 
3%: CMP CHKPTR,@LSTDEV ;ALL DONE? 
BHIS CHK ANR ;YES 
ADD @2,CHKPTR 3NO,-->NEXT DEVICE 
BR es 3:00 DA 
CHKANR: RETURN 


CHKPTR: 


UNIT ELSE DO ALL NON- 


SEQ 0060 


AREAS 


-P1l 


011010 


011012 
rinks 


MACY11 30(1046) 25-JAN-84 
25-JAN-84 08:09 


003320 
013770 


000022 
012654 


000002 
011322 
000001 


000001 


.SBTTL 


aa 


oe 


CHKPKS 


18: 


2s: 


3$: 


INPUTS: 
OUTPUTS: 


08:33 PAGE 335 
CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY RS / 


CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY RS / 


THIS ROUTINE IS ALSO TO DETERMINE THE PROTOCOL OF 
THE FIRST PART OF TEST 9 A GET yt Vigne Ey COMMAND P 
IF THE RESPONSE WAS A DAT 


J5 


SENT TO THE TUSS. 


EXPECTED, THEN THE UNIT IS NOT MODIFIED, AND THE MRSP 
IS AN END 


CLEARED. IF THE 


HANOLED 


R4 = 


SEQ 0061 


HKPKS - FOR UNIT RS AND FOR ALL PACKETS, CHECK TO SEE IF PACKET IS DATA OR 
END CHECKSUMS, CK 


COMPARE DATA DATA PACK, 
NOWN PACKET T CHECK FOR INTERF ACE 


A PACKET, WICH Is 
FLAG IS 
PACKET, 


RESPONSE WHICH WOULD BE 
BY iy ty ROUTINE AS AN UNKNOWN, THEN THE UNIT IS MODIFIED, 
AND THE MRSP FLAG IS SET 
(IMPLIED) UNITS DATA BLOCK 
ERRORS - DLV ERROR 


- UNKNOWN FLAG BYTE ERROR 
ERROR 


- CHECKSUM 


- DATA COMPARE ERROR 


NUMBER 
SYSTAT UPPER BYTE = 1ST BYTE OF RESPONSE 


NOP 
BIC 
MOV 
MOVB 


#BIT3,aRS 
RC 


@2,R1 

RO, PKPTRCRS) 
QRO,.SYSTAT+1 
8R1,RCBCNT 


QRS .RCFLG 
alata 
BRO, ORSCONT 
7$ 

RCBCNT ,R4 
-C(R4) 
CKCKSM 

2$ 

@BOCHK ,R4 
LOG 

7% 
i 


§ 
CHKEND 
@1,R2 


7$ 
@RSDATA,@RO 
4$ 


;CHECK WHAT WAS RECIEVED 
;CLEAR ‘BAD FLAG’ RETRY BIT 


eS 
ps ag UNIT XSFLG AGAIN 
:;COPY TO R 
et. SRSBENT FOR 1ST PACKET 
ACKET 


;AND FLAG 
31ST BYTE=EXPECTED? 


;UH OH... 

;0K, IS IT 1 BYTE? 

;VYES...ONTO NEXT PACK 

3NO, SO > 1 BYTE CNEVER EXPECT INIT!) 
EXPECTED, SO COUNT MUST BE RIGHT 
;ADJUST FROM RECEIVE COUNT TO COUNT FOR CHECKSUM 
;CHECK CHECKSUM 

3;NO CARRY...NO INCORRECT 

;ERROR 

3L0G IT 

3;0N TO NEXT PACK 

sEND PAK? 

3NO 

3; YES -CHECK 

;LAST PACKET 

;AND FALL THROUGH 

;DATA PAK? 

: 


011140 


011142 


011210 


011214 
011220 


KS 


MACY 11 30( 1046) 25-JAN-84 08:33 PAGE 35-1 
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000001 003544 


000210 
014570 


013770 
014570 


000204 


CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY RS / 


3#eeee IS THIS TEST 9 

3*eeae NO-CONTTINUE NORMALLY 
340466 CLR MRSP FLAG 

3#ee06 SKIP INSTR 


CMP #1, TESTS 
BNE il 
CLR MRSPCRS ) 
BR l2$ 


11$: CALL ar 3YE%- 4ECK DATA 
12s: aR sALi DONE? 
$: BIS eOITSIGIT13, aRS iSET ‘BAD FLAG’ RETRY FLAGS 
MOV @OTL ,R4 ;OUT TO LUNCH 
TST DLVCRS) ;AH,BUT OLV ERROR? 
BEQ 208 3NO 
MOV GOVRN,R4 3YES-USE CORRECT ERROR @ 
203: CALL LOG 3 TALLY 
BR 8s 3; DONE 


sHERE CHECKS UNEXPECTED RESPONSE 


S$; a @RSINIT ,.@RO ="? 
$ 
BIS @BIT3!BIT13,@R5 ;YES-SET RETRY FLAGS 
MOV @RCINIT .R4 ; WE GOT AN INIT 
CALL LOG sTALLY IT 
BR 8s 3 DONE 
6$: CMPB @RSDATA, BRO sDATA PAK? 


BNE $ 3NO 

MOV @RSDASZ ,.R4 sYES. USE DATA SIZE 
TST -(R4) sADJUST FOR CHKSUM 
CALL CKCKSM sAND CHECK 

ecs 10$ 3 GOOF 


30K, HOW'S THE DATA? 
EXPECTED END. GOT 

sDATA + END. 

‘POINT | Hs END PACK 

. USE SAME XSFLG 


ADD @RSDASZ RO 
BR 1% ;CHECK I 


SEQ 0062 


GLOBAL AREAS 
CZTUUF .P11 


C1l22e 


011266 


011274 
011300 


MACY1} 30( 1046) 
25-JAN-84 08:09 


122710 


000002 
000016 
013770 


eae 


000001 005544 
000001 000210 


011322 


000022 
012654 


003320 


08:33 


9%: 


138: 


108: 


7$: 


ee 


1 

alg 
@1,MRSPCRS) 
CHKEND 


83 

@BDCHK ,R4 
LOG 

8$ 


PAGE 34 
HKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY RS / 
@RSEND , (RO) 
a3 


sEND? 

NO - OUT TO LUNCH 

sYES, TOTAL SIZE MINUS 
sTWO CTHE CHKSUM) 
sCHECK IT 


;00PS 

3#eeee IS THIS TEST 9 

34eae¢ NO-CONTINUE NORMALLY 
3#ee00e IF SO, SET THE MRSP FLAG 
30K ,NOW TEST SUC. CODE 


;ALL DONE 

;CHECKSUM ERROR 

sEXIT 

sANY PACKETS LEFT TO CHECK? 
3NO, DONE 

sYES, POINT TO NEXT PACKET 
sPOINT TO NEXT EXPECTED COUNT 
sAND EXPECTED FLAG 


;TRY ANOTHER, THEY'RE SMALL 
;RET 


SEQ 0063 


: 


Het tt t tetets 


; 


ereee 3 


AREAS 


-P1ll 


052715 


MACY11 30(1046) 25-JAN-84 
25-JAN-84 08:09 CHIK 


08:33 


PAGE 35 
END / CHECK SUCCESS AND DETERMINE RETRY STATUS / 


MS 


SEQ 0064 


.SBTTL CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / 


: CHKEND - IF RETRYING; DETERMINE IF DATA ERROR OR BAD FLAG SYTE ERROR RETRY. 


IF g Mk re Bg Sal RETRY FLAGCSINCE OPERATION IS COMPLETE), 


ANDO CHECK SUC ‘ 
IF onrt Gann DATA ERROR ; CHECK SUCCESS CODE AND IF 0, PRINT RECOVERED, 
CHECK“ 


RROR, END RETRY STATUS. 
ERROR - 


IF NOT O AND WAS STIiL “DATA 
DETERMINE WHETHER TO CONTINUE ANOTHER RETRY OR 


LOG “UNRECOVERABLE ” ERROR. 


IF NOT RETRYING DATA ERROR; 
AND 


IF 
: IMPLIED A BL 
OUTPUTS: RETRY oh” aaa BIT 1AND 2), (BIT10 GRS) RESET IF RETRYING. 
DATA COMARE ERROR (BIT6 


RS) 
REDUCED/NORMAL GAIN (BIT7 RS) ADJUSTED 


BIS 


As IF ‘DATA CHECK’ ERROR SUCCESS CODE 
eee bata os ELSE EXIT 


RO sRO --> END PAK 
MOV 


RO, -(SP) 
R4 
MOV R4,-CSP) 
@BITLIBIT2e.SYSTAT sRETRY ING? 
- NORMALLY 
@BIT2,SYSTAT 3IS IT BAD FLAG TYPE? 
CHKREE sNOC(DATA TYPE) 
#6IT13,aR5 ;YES. SO IF END PACK THEN RETRY’S COMPLETE 
CHKSUC ;CHECK SUCCESS CODE 
66IT15.aRS S ABORT ED? 
3$ :NO, CONT INVE 
CHKRET 3: YES.EXIT 
SuCCS+1(R5) 3NO; HOW'D WE DO? 
ERR :NOT SO GOOD. 
#BIT6,aR5 ;0K, HOST FIND DATA PAK ERROR? 
2$ 3; YES 
CHKRET ;NO 
#8D0COM ,R4 ;YES; JUST BAD DATA-NO DATACHK ERR 
LOG :BAD DATA IN PACKET 
CHKRET ;QUIT 
oe Te SUCCESS: TU DATA CHK ERROR? 
3 
CHKRET :;NO. ALL DONE. 
6BIT10,8R5 3; YES-START RETRY 
MOV #1,RETRYCRS) ;CALL IT 1ST 
PRINTX ORTRYN, RETRYCRS) ;*#¢ PRINT #2 
MOV RETRYCRS 
MOV @RTRYN, - 
MOV @2,-CSP) 
MOV SP .RO 


5827 


EaSaatenssacseeRssaale 
 tohete hte! -| <hehehesene!-t } hehehe hehehe 


ererananayy 


AREAS 
-P11 


011470 


011724 


MACY11 30(1 
25 - JAN -84 


104415 
062706 
000562 


012746 


08: 


012144 
000001 


000004 


012172 
000001 


000002 
012224 


046) 25-JAN-84 
09 CHIK 


08:33 PAGE 35 
END / CHECK SUCCESS AND DETERMINE RETRY STATUS / 


CHKREE : 


2s: 


BR 
CALL 
TSTB 


BNE 
PRINTX 


TSTB 
BMI 
PRINTX 


BR 
PRINTX 


BEQ 


NS 


CHKRET sALL DONE 
CHKSUC sCHECK SUCCESS CODE 
SUCCS+1(R5) s SUCCESSFUL YET? 
UN 3NO, CHECK COUNT 
@RECOV,,RETRYCRS) 
CRS) ;DETERMINE THRESHOLD 
es sIT‘S MODIFIED 
@THRSLO s NORMAL 
3$ 
@THRSHI 3; ENHANCED 
#BITS ARS ;WRITE OR READ OPERATION? 
43 ;WRITE 
oo sREAD 
OSF TWR ,R4 ; WRITE 

0G 


RETRYCRS) sRESTORE TO NORMAL STATE 
@BIT10!:BIT7.@8R5 ;NO RETRY. NORM THRESHOLD 
CHKRET ;QUIT 


sRETRYING; SEE IF HARD YET 
> oleae Sa CHECK ERROR? 

8 
@RETERR ;NO-“OTHER-ERROR” ERROR 
RETRYCRS) :NO RETRIES 


OBIT1O!BIT7,QR5 ;NO RETRY, NORM THRESHOLD 


TRAP 


CHKRET ;EXIT 
a a ia ar DID WE GRADUATE TO HARD? 


JUST ANOTHER 


INC RETRYCRS) 3NO. 
PRINTX @RTRYN.RETRYCRS) ;PRINT OUT 


MOV 
MOV 


SEQ 0065 
CSPNTX 


RETRYCRS 
SRECOV, os 
@2,-CSP) 
SP ,RO 
CSPNTX 


@THRSLO, 
41, -(SP) 
SP RO 


CSPNTX 
04 ,SP 
@THRSHI, 
41, -(SP) 
SP RO 
CSPNTX 
04 ,SP 


@RETERR, 
#1, -(SP) 
SP ,RO 
CSPNTB 
#4 ,SP 


RETRYCRS 
@RTRYN, = 


GL 
Cc 


N 
gFEEEEocos 28 
WP beh ty fated 


ee % 
2 2u~a 
wes we we we ws ff 


mts titt tt +3 
PANE OO wou 


eee -8 
TACO 


SESS ESEESS: 


& 
33 


012064 
012144 
012172 
012224 
012244 
012266 


MACY11 30( 1046) 25-JAN-64 
2S5-JAN-84 08:09 


000002 


000006 
000200 


003310 


047505 
051117 
042117 
051124 
042522 
042510 


08:33 PAGE 5 
CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / 


BIT 
BEQ 
BIC 
BR 
18: BIS 
BR 
HRO1: NOP 
PRINTX 
BIT 
BNE 
MOV 
BR 
4$: MOV 
58: CALL 
CLR 
BIc 
CHKRET: BIC 
BIC 
POP 
POP 
RE TURN 
RECOV: .ASCIZ 
.EVEN 
THRSLO: .ASCIZ 
.EVEN 
THRSHI: .ASCIZ 
EVEN 
RTRYN: .ASCIZ 
EVEN 
UNREC: .ASCIZ 
VEN 


.E 
RE TERR: + 


B6 


MOV 
MOV 
TRAP 
ADD 
@BIT7,aR5 3WAS NORMAL THRESHOLD? 
18 s YES-REOUCE GAIN 
@BIT7,@R5 sNO- 
CHKRET 
oa sREDUCED 
$ 
sHERE IS HARD ERROR! 
@UNREC 
MOV 
MOV 
MOV 
TRAP 
ADO 
6B8ITS,.aR5 sRD OR WR? 
4s sWRITE 
@HRDRDO ,R4 sREAD 
5s 3L0G IT 
@HROWR ,R4 sWRITE 
L sL0G IT 
BACK 


RETRYCRS) 5 TO NORMAL 

@BIT1IO!6IT7,GR5 ;NO RETRY, NOT REDUCED 
@BITIIBITS,. SYSTAT sNO SYSTEM RETRY HEXT PASS 
e6IT6.aRS sNO MORE HOST DATA CHECK ERROR 
MOV (SP )+ ,.R4 


RO 
MOV CSP )+ RO 


/@ARECOVERED FROM DATA CHECK ERROR RETRY @ SDidn/ 
/@A NORMAL THRESHOLDSN/ 

/@A MODIFIED THRESHOLD @N/ 

/GARETRY @ SD1EN/ 

/6AUNRE COVERABLESN/ 


/SAQTHER ERROR DURING RETRY : EXIT RETRYG@N/ 


SEQ 0066 
é2, -( SP) 
SP RO 
CSPNTX 
6 ,SP 


12 
012370 


MACY11 30(1046) 25-JAN- 
-84 08:09 ease 7 


000100 


177737 
000030 


177740 
000024 
040000 


177767 
000054 


000076 


:33 P 
/ INTE 


| died 
3 CHKSUC - COPY SUCCESS CODE (BYTE) 10 SUCCS+i( RS). 
AND IF NOT O APPROPRIATE ERROR. 


INPUTS: 


a“ 


ies 
CHKSUC: : 


228: 


18%: 


Re *Shgo ag” ie Bee 


@ 
~~ 
w 


3% 


2s: 


— 
Ww 
~ 
wo 


3$: 


4$;: 


33 3883 32 


33 


C6 


SUCCESS CODE / 
.SBTTL CHKSUC / INTERPRET SUCCESS CODE / 


2(RO), SUCCS(RS) oo PACKE 
#ESOK , SC RO) sGET SUCCESS BYT 

; COMPLETE SUCCESS - EXIT 
30K BUT RETRIES? 


sNO 
CROSNTCRS),oRSSAD A READ? 


12s 
Sale SCRO) 


QRS TUS WORD 
CMDSNTCRS) - COMMAND BYTE 


OUTPUTS: R4 IS ERROR NUMBER IF ERROR. 
SUCCS(RS) UPDATED. 
BITS @RS SET ON DATA CHECK SUCCESS CODE 


4 


SEQ 0067 


INTERPRET SUCCESS 


3NO a IN MAINTENANCE! 
A WRITE? 


:“DATA CHECK” ERROR? 

2 

sSET DATA-CHK-ERROR FLAG 
LOG 


: NOPE 
rYES, NEG. IF ERROR 


FLAG 


EHOSNTCRS).eRSSUR 
208 :NO 

108 3L0G IT 
@NOMOT , R4 ‘ YES- 

118% 3L0G 
+ tied ata 

@68IT9,aR5 

128 3;00NT 
o> -ORSSSLF ;SELF TEST? 
SCRO) 

12% 3 OK 
@SLFER.R4 : YES -ERROR 
11$ 3L0G IT 
@ESSK ,3(RO) ;SEEK ERROR? 
4% 3:NO 

@SKERR .R4 3; YES- 
OBIT14,aR5 :;SET ‘DOBRK' 
11% 3L0G 
@ESNCRT, 3CRO) sNO CART? 
58 3NO 

@NCART ,R4 3; YES- 

11% 3L0G 


eee REV E eee MISSING “S&S” 


MACY11 30(1046) 25-JAN-64 08:35 PAGE 36-1 
84 06:09 
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177720 
000040 


177770 
000036 


177765 
000026 


177776 
000034 


177711 
000042 


000046 
012654 


000005 


58: 


6%: 


78: 


98; 


D6 


CHkSUC / INTERPRET SUCCESS CODE / 


laa » 3CRO) 
— R4 


paella 


@PARTL ,R4 
118 


@ESREC , SC RO) 
10% 

@RECERR ,R4 
118 


@SUCOTL .R4 
LOG 


~~ UNDERSTAND HOST? 


t 
: YES- 
3L0G 


sNON EXISTENT UNIT? 
NO 


: 
3 YES- 
3L0G 


sWRITE LOCKED? 
NO 


3 
3 YES- 
3L0G 


sPARTIAL OP? 


3NO 
3s YES- 
3L0G 


sWRONG RECORD? 
NO 


3 
3; YES- 
3L0G 


3; UNDEF INED 
sL0G ERROR 
;RE TURN 


SEQ 0066 


Ce ee | 
opt pt 


uw 
ae 
epee 
eed ted ed de ee 


uw 
aan 
wee 


SEegeeseess 


AREAS 


Pll 


E6 
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010046 
010146 
010346 
010446 


011537 
042737 


042701 
032737 


25 -JAN-84 08:09 


002074 
177770 
000004 
000120 
013660 


000377 


000004 
002230 
000004 


000001 
000004 


002074 


016774 


LOG / TO LOG ERROR IN COPRECT PLACE 


.SBTTL LOG / TO LOG ERROR IN CORRECT PLACE 


R4 = ERROR C 


: 
: 
: 
: 
; 
: 
s INPUTS: 
: 
: 
: 
= 


PRINT APPROPRIA 
— THE UNIT IF INDICATED THROUGH 
OUTPUTS: ABNDXCRS) = ERROR CODE. 


s¢ 
LOG - DETERMINE IF ERROR IS FATAL, NON-FATAL OR “ AFTER N TRIES 
ADD THE gt : TO 


TE ERROR MESSAGE 
DODROP C 


OLVCRS) = O 
L$LUN = UNIT NUMBER 
LOG: : PUSH RO 
MOV RO, -( SP) 
PUSH Ri 
MOV R1,-C( SP) 
PUSH R3 
MOV RS, -(SP) 
PUSH R4 
MOV R4,-(SP) 
MOV @RS .LSLUN GET UNIT 
BIC #177770,L8LUN sMASK IT OFF 
MOV R4 , ABNOXC(C RS) sSAVE INDEX IN CASE OF ABOR: MESSAGE 
MOV @LGOF ST RS OFF SET TO LOW en a BYTE CORIVEO) 
ADD 4,R3 3F INDEX OF PARAM. TO UPDATE 
ADD R5,R5 3FORM ABSOLUTE ADDR. THIS UNIT 
CALL 3;SEE WHICH DRIVE T’ 
BCC rs | sWAS DRIVE O 
INC R3 sDORIVE 1; POINT TO UPPER BYTE 
2s: tg aan ,aR5 — OVERFLOW POSSIBLE? 
3 
LOGO: ERROF 0..OVRFLO.ERRDES ;YES 
TRAP 
. WORD 
. WORD 
. WORD 
BR sABORT UN 
LOGOK: INCB ONCREMENT Me ERROR 
MOVB ~R4 T TEMP: LY SAVE IT 
MOV ABNOX(RS),RS ;GET INDEX AGAIN 
MOV TAB sFORM ADRS OF MSG 
ABNOXCRS),R1 SLIKE THIS 
BIC @BITO,R1 ; INSURE WORD BOUNDARY 
BIT EVL .FLGLOC ;EVL SELECTED? 


SEQ 0069 


CsEROF 


o 
OVRFLC 
ERRDES 


F6 


GLOBAL AREAS MACY11 30(1046) 25-JAN-84 0:35 PAGE 37- 
CZTUUF .P1l 25-JAN-84 08:09 LOG / TO LOG ERROR IN CORRECT PLACE SEQ 0070 

6020 012774 001414 BEQ LOGOK2 sNO-CONT 

6021 012776 123704 002222 CMPB EVL THR ,R4 sYES,OVER THRESHOLD? 

6022 013002 101011 BHI LOGOK2 NO 

6023 013004 010337 013016 MOV R3,OFTLi+2 sYES,LOAD ERROR @ 

6024 013010 011137 013020 MOV @R1,.OF TL1+4 sAND MESSAGE ADDR 

6025 013014 DOFTL1: ERRDOF O, OF TL1,ERRDES ,;,ERROR 
(4) 013014 104455 TRAP CSERDOF 
(5S) 013016 000000 .WORD 0O 
(5) 013020 013014 -WORD OFTLI 
(5S) 013022 013210 -WORD ERRDES 

6026 013024 000460 BR ABO sDROP IT 

6027 013026 120327 000014 LOGOK2: CMPB — ;'NEVER FATAL’ TYPE? 

6028 013032 103011 BHIS NYTSFT sNO 

6029 012034 010337 013046 MOV RS LOG1I+2 sYES, ERROR C 

6030 013040 011137 013050 MOV BRi. LOG1+4 sDESCRIPTION 

6031 013044 LOGI: ERRSOFT O. ,LOG1,ERRDES 
(4) 013044 104457 TRAP CSERSOF T 
(S) 013046 000000 -WORD O 
(5S) 013050 013044 -.WORD LOGI 
(5) 013052 013210 -WORD ERRDES 

= 013054 BR LOGO sEXIT 

6034 013056 120327 000026 NTSFT: CMPB R35, @WRLOCK sONE TRY? 

6035 013062 103411 BLO MABEE sNO, MAYBE A MULTIPLE 

013064 010337 013076 MOV R3,LOG2+2. sYES 

6037 013070 011137 013100 MOV @R1 ,LOG2+4 

6038 013074 LOG2: ERRHRD O, LOG2,ERRDES sPRINT HARD MESSAGE 
4 013074 104456 TRAP CSERHRD 
(5) 013076 -WORD O 
(5) 013100 013074 -.WORD .LOG2 
C5) 013102 013210 .WORD ERRDES 

ote 013104 000430 BR ABO sDROP UNIT 

6041 013106 042704 177400 MABEE: BIC #177400 ,R4 sNEGATE SIGN EXTEND 

6042 013112 163704 003322 1%: SUB F TLNM,R4 sSEE IF MALTIPLE OF 

6043 013116 0014135 BEQ HRD sTLNN-YES! 

6044 013120 103401 BLO SFT 3NO 

6045 013122 000773 BR 1% sNOT THERE YET 

6047 013124 010337 013136 SFT: MOV R3,LOG3+¢2 sERROR CODE 

6048 013130 011137 013140 MOV OR1 LOGS +4 ;sDESCRIPTION 

6049 015134 LOGS: ERRSOFT 0,LOG3S.ERRDES 

C4) 013134 104457 TRAP CSERSOF T 
(5S) O21313%6 .WORD 0O 
€S) 013140 013134 .WORD LOG3 
(5S) 013142 013210 .WORD ERRDES 

6050 013144 000414 BR LOGO ;EXIT 

6051 013146 010337 013160 HRD : MOV R3,LOG3B8+2 ;HARD ERROR CODE 

6052 013152 011137 013162 MOV @R1 .LOG3SB +4 3DESCRIPTION 

6053 013156 LOG3B: ERRHRD O, LOG38, ERRDES 
(4) 013156 104456 TRAP CSERHRD 
(5S) 013160 000000 .WORD 0O 
(S) 013162 013156 .WORD .LOG38 
€S) 013164 013210 .WORD ERRDES 

6055 013166 011500 ABO: MOV ORs ,RO ;GET UNIT NUMBER 


-Pil 


B20 


AREAS 


013170 
013174 
013174 
013176 
013176 


013200 
013200 


013202 
013202 


013204 
013204 


0135206 


MACY11 30(1046) 25-JAN- 
25-JAN-84 08:09 


042700 177770 


104451 
012604 


012605 


012601 


012600 
000207 


o® 


RE TURN 


G6 


N CORRECT PLACE 
#177770,R0 
RO 


R4 


RS 


R1 


RO 


sRESTORE 
MOV 


sUN-SIGN EXTEND 
sUSE LOGICAL @ TO DROP 
TRAP 
CSP )+,R4 
MOV CSP )+,R3 
MOV (SP)+,R1 


MOV (SP )+,RO 


SEQ 0071 


Cs000uU 


te 
WevwuwNuywvrwd 


6074 
7S 


ARAAAAARAR 
SU W~S@wo 
i) [eee ele erTeTw) 


oS 
tt et ee ee So 


bre pe pe ee 
oorr~ 


SAWUAANBWOO 
ah hh hhh ad 


ge 


3 AAAAARN 
Sstaece 
WS ww www 


AREAS 
-P1il 


01 
013370 
013374 


MACY11 30(1046) 25-JAN-84 PAGE 38 
- : LOG / TO LOG ERROR IN CORRECT PLACE 


25-JAN-84 08:09 


010046 
010246 


005002 
032715 
001401 
005202 


000020 


003311 


08:33 


s+ 
; ERRDES - CONTAINS CODE FOR 
BLOCK @, ETC. 


2s: 


3$: 


BGNMSG 
PUSH 


PUSH 


MOV 
MOV 
PRINTB 


TST 
BEQ 
PRINTB 


CLR 
POP 


H6 


ERRDES sERROR DESCRIPTION 
ERRDES: : 

RO 

MOV RO, -( SP) 
R2 

MOV Re, -C SP) 
Re sPRESET TO DATA TYPE 
@BIT4 ARS sWHAT PACK TYPE? 
ef sDATA 


Re 3; COMMAND 
@UNIT, <B,ORCRS)>,R2,<B, SYSTAT+1> 


RECCRS) RO sRECORD NUMBER 
PATTENCRS),R2  ;DATA EXPECTED 
@RECID,RO,<B,CMOSNTCRS)>, <8. R2>,<B,SUCCS+1C€R5)> 


asi? mV ERROR? 
3 
@RECID2 ,.OLVCRS) ; YES-PRINT 


;RESET 


DLVCRS) 
Re ;RESTORE 


EXTENDED ERROR INFORMATION: ORIVE @, 


SEQ 0072 


-(SP) 
SYSTAT+1 
R2, -(SP) 


AL AREAS 


GLO8 
CZTUUF 


Ss8cuscc an 
iW @ re Dr pr 
OOywwnyvOAvuw 


gs 


6093 


33 


-P11 


0133574 


013376 
013376 


MACY11 30( 1046) 
25-JAN-84 08:09 


012602 


012600 


051104 
046102 
023516 
051040 


25-JAN-84 08:35 


053111 
041517 
020124 
042103 


PAGE 38 
LOG / TO LOG ERROR 


POP 
ENOMSG 
UNIT:: .ASCIZ 
.EVEN 
RECIDO:: .ASCIZ 
.EVEN 
OVRFLO: .ASCIZ 
.EVEN 
RECID2e: .ASCIZ 
.EVEN 


-1 
IN CORRECT PLACE 


16 


SEQ 0073 
MOV (SP)+,R2 
RO 
MOV CSP)+,RO 
;EXIT 
L10003: 
TRAP CsMSG 


/@ADRIVE@ 018A PAK SENT S018A FLAG RCVD SO38N/ 
/SABLOCK? 048A COMMAND #028A EXPCTD SO038A SUCCESS SO038N/ 
/CAN'T UPDATE ERROR OR STATISTIC: OVERFLOW PENDING/ 

/#A RCDB WAS S06SN/ 


AREAS 
-P11 


J6 


MACY11 30(1046) 25-JAN-84 08:33 PAGE 39 
25-JAN-84 08:09 WHC 


HDR / SEE WHICH DRIVE IS ACTIVE 


.SBTTL WHCHDR / SEE WHICH DRIVE IS ACTIVE 


ze° 
; INPUTS: ORCRS) 
3; OUTPUTS: CARRY=DRIVE (1 OR 0) 


WHCHDR:: CLC ;CLEAR CARRY 
TSsTs ORCRS) 30R 07? 
BEQ 2$ ;YES 
SEC 3;NO 

2s: RETURN ;RE TURN 


SEQ 0074 


AREAS 
-P1l 


013714 
013722 
013724 


MACY11 = Ww 25-JAN-84 08:35 
25-JAN-84 08:09 CHK SUM 


010346 


010246 


000001 
000001 


000001 


177400 


003310 


003310 


003310 


Ko 


PAGE 4 
/ FORM THE PACKET CHECKSUM 


.SBTTL CHKSUM / FORM THE PACKET CHECKSUM 


CHKSUM: : 


4$: 


INPUTS: 
OUTPUTS: 


@ OF 


Ri = CHECKSUM 


PUSH 


R3 

Re 
#BITO,SYSTAT 
#BITO,R1 


1$ 
@BITO,SYSTAT 
Ri 


+ alta 
(RO)+,R2 
#177400 ,Re2 


R3,R1 
Re 


R3 


++ 
THE CHECKSUM IS A 16 BIT CHECKSUM WITH END-AROUND CARRY. 
oe -> (POINTS TO) TOP OF PACKET 

BYTES 


RRO -> WHERE TO PUT CHECKSUM 


MOV R3, -CSP) 


MOV R2, -( SP) 

; “CHECKSUM IS ODD” BIT 
:;AN OOD @ OF BYTES? 

3NO 

3s YES 

3/2 FOR WORDS 

sPREP CHECKSUM WORD 
3FORM SUM 

;WITH CARRY 

sMORE WORDS? 

3; YES 

;WAS IT ODD 

$ 

sYES GET NEXT BYTE 
3UN-SIGN EXTEND 

3;ADD IT IN 

:AND CARRY JUST IN CASE 
;sRETURN IT IN CORRECT PLACE 


;RESTORE 
MOV CSP )+,R2 


MOV (SP )-,R3 
;RETURN 


SEQ 0075 


AREAS 
Pil 


013770 
013770 


013772 
013772 


013774 
013776 


014002 
014004 


014006 
014010 
014012 
014014 
014016 
014020 
014022 
014022 


014024 
014024 


014026 


MACY11 30(1046) 25-JAN- ye 08:35 


010146 


010046 


010401 
004737 


25-JAN-84 08:09 


013674 


L6 
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KSM / MODULE TO CHECK THE CHKSUMS 


.SBTTL CKCKSM / MODULE TO CHECK THE CHKSUMS 


see 


; MAKE SURE THE CHECKSUM RECEIVED = THE CHECKSUM CALCULATED. 
R4 = THE PACKET BYTE COUNT 
RO -> THE PACKET TOP 
CARRY SET IF CHECKSUM CALC'D DOES NOT EQUAL CHECKSUM SENT 
RO -> THE PACKET TOP 


3; INPUTS: 
‘ 
3; OUTPUTS: 


CKCKSM: : 


PUSH 


PUSH 


MOV 
CALL 


R1 


RO 


R4,R1 
CHKSUM 


MOV 

3 SAVE 

MOV 

;COPY BYTE COUNT TO CORRECT 
ER FOR CHKSUM AND 


sREGIST 
sFORM C 


Ri, 


-(€SP) 


RO, -( SP) 


;HERE RO --> XMITTED CHKSUM, R1=CHKSUM CALC’D 


2s: 


3%: 


CRO)+,R1 
2s 


R1 


CRO)>+,R1 
2s 


3% 


RO 


Ri 


;LOWER ORDER CHECK 
WRONG 


;0K-PREP FOR 


sHIGH ORDER CHECK 
3; WRONG 
;0K-CLEAR SAILING 


;EXIT 


;LET ERROR SE KNOWN 


MOV 


MOV 


;RETURN 


CSP )+,.RO 


CSP)+,R1 


SEQ 0076 


36 
6237 


M6 


er Pe 
YVUSVe N 


Tite 


pean MACY11 30(1046) 25-JAN-84 06: :33 PAGE 42 
Pil 25-JAN-84 08:09 DOBRK / MODULE TO INIT TUS8& AND TEST INTERRUPTS SEQ 0077 
.SBTTL ODOBRK / MODULE TO INIT TUSS AND TEST INTERRUPTS 
3o¢ 
; DOBRK - SEND RADIAL SERIAL “BREAK” TO DEVICE: 
; - SET “BREAK” ON INTERFACE. 
: - SEND 8. NULLS 
; - CLEAR WBREA « TERF AC 
; - SET VECTORS FOR RCV AND XMIT 
; - SEND 2 BYTES OF “INIT” 
: - RECEIVE “CONTINUE” 
; - IF RECEIVE GARBAGE TIMEOUT - ERROR 
; - CLEAR INTERRUPTS AND VECTORS 
; INPUTS: @RS BIT14 WAS SET - (SEND BREAK) 
; OUTPUTS: — A hg CLEAR IF —" INIT. 
: SYSTAT+1 = RECEIVED B 
: ERRORS R4 = CODE: 
; - SEND NOT READY TIMEOUT ( TOSNDB) 
: - NO RESPONSE 
: - DLV ERROR 
: - CAN'T INIT 
3 -<- 
014030 105037 0145635 DOBRK: : INITWD+1 ;CLEAR BYTE RECEIVE ADDR 
014034 005037 014564 CLR BRKTO ;CLEAR TIME OUT CONSTANT 
014040 052775 000001 000026 FIS @BITO,@XMSRCRS) ;SET ‘BREAK’ 
014046 012765 000001 000100 MOV eRSSNET,CHOSNTCRS) sSAY WE SENT ‘INIT’ 
014054 052715 000020 BIS @BIT4, SRS sPAK SENT TYPE =COMMAND, SORT OF 
014060 012704 000010 MOV 08. ,R4 ;BREAK-IT'S-BACK COUNT=8 
014064 1$: BREAK sSUPERVISOR TAKE FIVE 
014064 104422 TRAP C$BRK 
sFOR tC CHECK, ETC. 
014066 105775 000026 TSTs @XMSRCRS ) sREADY? 
014072 100410 BMI &3 sYES 
014074 005337 014564 DEC BRKTO 3NO, TIME OUT? 
014100 001371 BNE 3NO 
014102 012704 MOV @TOSNDB ,R4 sYES, SET ERROR CODE 
014106 004737 C12654 CALL ;LOG 
014112 000535 BR sEXIT 
014114 113775 014560 000050 4$: MOVB BRKWD,@XMDBCRS) ;SEND NULL 
014122 005037 014564 CLR sRESET TIME OUT 
014126 005304 DEC Ra ;MORE NULLS TO SEND? 
014130 001355 BNE i$ ;YES 
014132 375 000026 DEC @XMSRCRS ) :NO, CLEAR ‘BREAK’ 
014136 017500 000024 MOV SRCDBC RS), RO sHEAVE ‘GARBAGE’ 1ST BYTE 
014142 SETPRI #@PRIOO ;SET TO INTERRUPT FO SURE 
014142 012700 000000 MOV #PRIOO,.R 
014146 104441 TRAP CsSPRI 
014150 SETVEC TUVECTCRS), @RCVINT,@PRIO7 ;SET VECTO INFO 
014150 012746 000340 MOV @PRIO7, - 
014154 012746 014470 MOV ORCVINT. 
014160 016 000204 MOV TUVECTCR 
014164 012746 000003 MOV #3, -CSP) 
014170 104437 TRAP CsSvEC 
014172 062706 000010 ADD #10,SP 
014176 062765 000004 000204 ADO 04, TUVECTCRS) ;AND INC TO SND ae 
014204 SETVEC TUVECTCRS),@SNDINT,@PRIO7;AND SET I 


014266 
014270 
014272 


MACY11 30( 1046) 
25-JAN-84 08:09 


012746 


123727 
001003 


042715 
000407 


113737 


000340 
014454 
000204 


000003 


2S-JAN-84 08:33 PAGE 42-1 
DOBRK / MODULE TO INIT TUSS AND TEST INTERRUPTS 


000026 


000026 


000022 


000020 


003311 


2s: 


3$: 


BIC 
BIC 
CLRVEC 
ADO 
CLRVEC 


SUB 
RETURN 


N6 


SEG 0078 
MOV @PRIO7, a 
MOV OSNDINT, 
MOV TUVECTCR 
MOV @3,-(SP) 
TRAP Cs$SvEC 
ADD #10, 
#4, TUVECTCRS) sRESET VECTOR ADOR. 
BRKTO ;sRESET TIME OUT 
@INITWD ,R4 3s USE . FOR SNDBYT 
R4,BRKPTR s;AND SAVE FOR “WAIT” 
@BIT6,@8XMSRCRS) ; ENABLE INTER. 
WAIT ;AND ENTER LOOP 
;ABORTED FROM TIME OUT? 
3$ 3; YES-EXIT 
TO sRESET TIME OUT 
@INITWD .R4 3SEND SECOND INIT 
R4 , BRKPTR ;SAVE POINTER AGAIN 
oBIT6, @XMSRCRS) ; THEN ENABLE T 
WALT 3 WAIT 
ORS sIF ABORTED 
3$ 3; THEN EXIT 
@INITWD+1,R4 ;WHERE RESPONSE WILL GO CADDRESS) 
4, AND FOR ‘WAIT’ 
@BIT6,ARCSRCRS) SENABLE RECIEVE INT. 
WAIT ;GET ANSWER 
ars S ABORTED? 
3$ ; YES. 
INITWD+1,@RSCONT ;NO, IS IT ‘CONTINUE’ ? 
2s 3 NOPE -ERROR 
4BIT14,aR5 ;SUCCESSFUL, CLEAR DOBREAK FLAG 
3$ ;EXIT 
INITWO+1,SYSTAT+1 ;SAVE BUM RESPONSE 
@CNINIT ,R4 ;CAN'T INIT CODE 
LOG 3L0G IT 
;SCHEDULER WILL TRY AGAIN IF NOT ABORTED 
@BIT6,@XMSRCRS) ;CLEAR INTERRUPTS 
@BIT6,@RCSRCRS) ; AND FOR RECIEVE 
TUVECTCRS) ;sRELEASE RECIEVE VECT. 
MOV TUVECTCR 
TRAP CscveECc 
#4, TUVECTCRS) ;AND GET SEND ADDR 
TUVECTCRS) ;AND RELEASE IT 
MOV TUVECTCR 
TRAP CsCVvEC 
#4, TUVECTCRS) 


sRESTORE POINTER 
;RETURN 


B/ 


GLOBAL AREAS  MACY11 30(1046) 25-JAN-84 08:33 PAGE 43 3 
CZTUUF.P11 25-JAN-84 08:09 INTERRUPT SERVICE ROUTINES AND TIMER SEQ 0079 
6285 .SBTTL INTERRUPT SERVICE ROUTINES AND TIMER 
$287 014454 BGNSRV SNDINT ;"SEND” INTERRUPT SERVICE: 
f 3) 014454 SNOINT: : 
6289 014454 042775 000100 000026 SNOHND: BIC @BIT6,GXMSR(RS) ;OISABLE INTERRUPT 
014462 112475 000030 MOVB (R4)+.8XMDBCRS), OUTPUT BYTE 
1 014466 ENOSRV 
(3) 014466 L10004: 
(2) 014466 000002 RTI 
6292 
6293 
6293 
6295 014470 BGNSRV RCVINT ;"RCV" INTERRUPT SERVICE: 
(3) 014470 RCVINT:: 
6297 014470 042775 000100 000022 RCVHND: BIC @BIT6,GRCSR(RS) ;OISABLE INTS 
6298 014476 017565 000024 000074 MOV SRCDB(RS),OLVCRS) SA 
6299 014 116524 000074 MOVG OLVC(RS),(R4)> ;@YTE TO BUFFER 
6300 014510 005765 000074 TST DLVC(RS) sERROR? 
6301 014514 100402 BMI 108 sYES 
6302 014516 005065 000074 CLR DLVC(RS) }NO CLEAR ERROR 
6303 014522 108: 
6304 014522 ENDSRV 
3) 014522 L10005: 
(2) 014522 000002 RTI 
6305 
6306 
6307 
6308 014524 000240 WAIT: NOP ;WAIT LOOP FOR 
6309 SINTERRUPT SERVICING 
6310 014526 020437 014566 CMP R4,.BRKPTR ;IF*, THEN NO INTERRUPT 
6311 014532 001011 BNE 18 ;GOT ONE?! 
6312 014534 BREAK ;SUPERVISOR BREAK 
(3) 014534 108422 TRAP  CSBRK 
6313 014536 BREAK :KILL SOME TIME 
(3) 014536 104422 TRAP  CSBRK 
6314 014540 005337 014564 DEC BRKTO sTIME OUT? 
6315 014544 001367 BNE WAIT 3NO... CONT. 
6316 014546 012704 000050 MOV @TORCVB,R4 sYES LOAD ERROR © 
6317 014552 004737 012654 CALL LOG :L0G IT 
6318 014556 000207 18: RE TURN 3; RETURN 
6320 014560 000000 BRKWO: .WORD NULL 
6321 014562 004 INIT: .@YTE RSINIT ;INIT COMMAND 
6322 014563 000 "BYTE 0 ;RSCONT IS EXPECTED HERE 
6323 014564 000000 BRKTO: . rt 3T 
6324 014566 000000 BRKPIR: . 0 sPOINTER TO INITWO 
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oO 


wt et ae 


Or 
Pt pe ae 


Seaud~w@ 
et Ne Ned Ned ed tet CA es 


ARE AS 


Pil 


014570 
014570 


014572 
014572 


014574 
014574 


014576 
4602 


014714 


010046 


002074 
177770 


014746 
014750 
000002 


000006 


25 GAN BA O08 L09) N BGmPRRIDATA’ COMPARISON MODULE 


002074 


CF 





SEQ 0080 
.SBTTL COMPAR/DATA COMPARISON MODULE 
; ’ COMPAR - IF “COMPARE_DATA” SELECTED, COMPARE EACH DATA BYTE OF PACKET 
; To PATTENCRS2. SAVE NUMBER OF BYTES NOT CORRECT. IF NOT 
j PRINT SOFT ERROR AND TOTAL © WRONG BYTES. SET “BAD_DATA. 
, Th PACKET” BIT (BIT6 GRS) FOR HIGHER LEVEL MODULES. 
; INPUTS: - CCMPDAT) FLAG TO NOT COMPARE (+1) 
, - PKPTRC(RS) POINTS TO DATA PACK. 
; OUTPUTS: BIT6 BRS (BAD DATA FLAG) ADJUSTED. 
; L$LUN - UNIT NUMBER 
: PRNSIZ - SIZE OF PACKET 
gee 
COMPAR:: PUSH RO ;COMPARE DATA IS DATA PACKET 
MOV RO, -(SP) 
PUSH R4 TO PATTERN WRITTEN 
HOV R4,-(SP) 
PUSH RL ;USING BYTE COUNT IN PACKET 
MOV R1,-(SP) 
CLR BOBYTS :;CLEAR TOTAL WRONG 
MOV PKPTR(RS) RO sGET TOP OF PACKET 
TST CMPDAT 1 COMPARE SELECTED? 
BEQ ry} 3NO-EXIT 
R4 YES, LOCATE COUNT 
MOvB @R4 RL sGET IT 
BIC #@177400,R1 S SIGN-UNEX TEND 
sMUST TEST BYTE-wWISE... 
INC R4 3-->FIRST DATA BYTE 
18: CMPB PATTENCRS).(R&)> sDATA-WHAT WAS EXPECTED? 
BEG 2s 3s YES 
INC BOBYTS 3NO, INCREMENT TOTAL WRONG 
28: DEC Ri SHORE. L 
BNE 1% 3: YES 
TST B0BYTS + WRONG ? 
BEQ 4s 
MOV @RS,LSLUN GET UNIT NUMBER 
BIC @177770,L8LUN MASK IT OFF 
ERRSOFT 0. ,.MSBDA,ERRDES "sYES -PRINT ‘BAD DATA IN PACKET’ FERROR 
CSERSOFT 
a MSBDA 
Y ERRDES 
PRINTB @DESC,.BDB8YTS 
MOV BDBY TS. ™ 
MOV @ODE *~ 
MOV SP, 
TRAP CSPNTB 
ADD ®6,SP 


D/ 


GLOBAL AREAS MACY11 30(1046) 25-JAN- 33 P 44. 

CZTUUF .P1i1 25-JAN-84 08:09 SOMPARZDATA COMPAR ICON MODULE SEQ 0061 
6364 014720 052715 000100 BIS oBIT6,.GRS sLET ‘EM KNOW UPSTAIRS-BAD DATA FLAG 
6365 014724 012737 000204 0033540 MOV #1352. ,PRNSIZ sSIZE IS ONE DATA PACK 
6366 014732 004737 015004 CALL PRNP AK 34ND PRINT THE PACKET 
6367 014736 4%: POP R1 ; 

ot 014736 012601 MOV CSP )+,Ri 
6368 014740 POP R4 
$32 014740 012604 MOV (SP )+,R4 
6369 014742 POP RO 
oat 014742 012600 MOV (SP )+,RO 
4 
6370 
rte 014744 000207 RE TURN 
6373 014746 000000 BOBYTS: .WORD 
6374 014750 040445 047524 040524 DESC: .ASCIZ /SATOTAL BAD BYTES= SD358A.aN/ 


6375 EVEN 


(4) 


AAAAA 
&aunn~ 
et ee 


aw 
oe pe 
ee et 


ae | 
he 
SV 


AREAS 
-P1l 


015142 


015144 
015144 


MACY11 30(1046) 25-JAN- a ype 


25-JAN-84 08:09 


015150 


PAGE 45 
AK/MODULE TO PRINT DATA PACKET 


eT 


SEQ 00862 


.SBTTL PRNPAK/MODULE TO PRINT DATA PACKET 


3¢ 


; PRNPAK - IF PRINT_DATA_PACK_ON_ERROR SELECTED: PRINT EACH BYTE OF PACKET 
TO BY PKPTR( 


: 
3 INPUTS: 
; OUTPUTS: 


PRNPAK:: NOP 


3$: 


4$: 


PUSH 


BR 
PRINTF 


POP 


POP 


PRNSIZ - @ OF BYTES IN PACKET. 
NONE 


sPRINTS 1 PACKET 
sPKPTRCRS)->TOP OF PACKET 
sPRNSIZ (PASSED)=BYTE COUNT 


RO 
MOV RO, -CSP) 
RS 
MOV R4,-CSP) 
— sPRINT PACKET SELECTED? 
3 
PKPTRCRS).R4 sYES-GET TOP OF PACK 
#16. ,LNCNT 316 BYTES PER LINE 
CR4)>¢,PROAT sAVOID SIGN EXTEND 
@PRFORM.<B.PRDAT> ;PRINT BYTE 
CLR -(SP) 
8IS8 PRDAT.CS 
MOV @PRFE ORM, 
MOV @2,-CSP) 
MOV SP .,RO 
TRAP CSPNTF 
PRNSIZ sONE LESS 
38 sNO MORE 
LNCNT sNEW LINE? 
2% sNOT YET 
eCARLF 3 YES 
MOV @CARLF , - 
MOV #1, -CSP) 
MOV SP, 
TRAP CSPNTF 
ADO 04, SP 
i$ sNEXT LINE 
OCARLF :F INISH UP 
MOV ARLF , - 
MOV #1,-CSP) 
MOV RO 
TRAP CSPNTF 
ADD 04 ,SP 
Ra 
MOV CSP )+,R4 
RO 


MOV CSP)+,RO 


AREAS 
P11 


015146 


015170 


F7 


MACY11 30(1046) 25-JAN-84 08:53 PAGE 
PRNPAK 


015170 


25-JAN-84 08:09 


022463 020101 
000 


45-1 
7ZMODULE TO PRINT DATA PACKET 
RETURN 
LNCNT: .WORD 
PRDAT: .WORD 
PRFORM: -ASCIZ /8038A / 
CARLF: .ASCIZ /#N/ 
“EVEN 


;RETURN 


SEQ 0083 


an eeous SECTIONS oat ty 30( 1046) 25-JAN-84 08:33 PAGE 45-2 
CZTUUF .P11 25-JAN-84 08:09 PRNPAK /MODULE fe PRINT DATA PACKET 


6430 . TITLE MISCELLANEOUS SECTIONS 
6431 -SBTTL REPORT CODING SECTION 


SEQ 0084 


| Tatete 
pt ee 


ayeyuvWiueYyUNyYU YR UY YOU OYUVUY 


rr ES Pe Pee 
ed ee ad el oe Lad and anki Land onl ante Land onl ont 


a 


a~Pannandada 
 Rebeboowte Bonet he 


w 
~ 


015170 


015170 


015170 


015172 
015172 


015174 
015174 


015176 
015176 


015200 
015200 


010046 
010146 
010246 
010346 
010446 


010546 


104422 
012737 


003352 015616 


015620 
000001 
000004 


016074 
00000 


3¢ 


3; THE REPORT CODING SECTION CONTAINS T 
“PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


i$ 


+ 


BGNMOO 


R1 


R2 


R3 


R4 


Priam 


MOV @BLKTBL .RPTR 
PRINTS @STATHO 


BREAK 
PRINTS @STHD2 


BREAK 


RO, -(SP) 


Ri, -(SP) 


Re, -CSP) 


RS, -(SP) 


R4. -( SP) 


RS. -€SP) 


sGET 1ST DEVICE BLOCK 
HEADER 


:tC CHECK 
32ND HEADER 


3*C CHECK 


LSRPT:: 


ee 


TRAP 


MOV 
MOV 
MOV 
TRAP 


g 


TRAP 


CsBRK 
@STATHD, 
#1, -(SP) 
SP .RO 
CSPNTS 
CSBRK 


@STHDe, - 
el, -CSP) 
SP RO 


CSPNTS 


C $BRK 


H7 


2S-JAN-84 08:33 PAGE 45-5 


MISCELLANEOUS SECTIONS 
25 - JAN-84 REPORT CODING SECTION 


MACY11 30(1046) 
CZTUVF P11 08:09 


SEQ 0085 


6495 


PUD AW 


seit tac tia dra- simian ts tsi 


PWD WD OP PP PP 
Be Jo Cbiiei ube woe 


¢15 


DANA ARANE 
OD Oh bt 
wwwOrrfiy Ww & 


fe ee ee Be er Oe 


Se ed 


0 
) 
0 


012746 


000332 
004000 


015614 


BRPTR,RS 
placate 


sGET DEVICE BLOCK 

sUNIT NOT TESTED? 

; TRUE, OON'T PRINT STATISTICS 
30K TO PRINT 

sSAVE STATUS WORD 

sMASK UNIT NUM. 


1 SOF TREAD 
1s SIGN-UNEX TEND 
sSOFT WRITE 


3 

sHARD READ 

$ 

sHARD WRITE 

; 

sSUMMARY/UNIT @ 


SRS , RLUN 
0177770,RLUN 
SOF TRCRS),R1 


#177400,R35 
HAROWCRS ) ,R4 


BIC @177400.R4 
PRINTS @FMO,RLUN 


TRAP 
ADD 
PRINTS 4FM,00,WRTNOCRS),RDNOCRS),<B,BDATACRS)> me 


SOF TRe1(R5),R1 
7 R 


VB RS), R4 
BIC #177400,R4 3 ONE 


PRINTS 0OFM,@1,WRTNICRS),.RONICRS).<B,BDATA+1(RS)> mee 


MISCELLANEOUS SECTIONS 
CZTUUF Pil 


(6) 


015572 


015576 
015576 


015600 
015600 


015602 
015602 


015604 
015604 


016074 
016141 


016204 


012746 
0600 


MACY11 30( 1046) 
25-JAN-84 08:09 . 


000011 
000024 
015616 
000002 
015256 


040445 
045510 


047125 
020040 
022463 


020040 
041505 


020040 
051057 


052111 
020040 
027101 


020040 
053117 


25 - JAN -84 


2s: 


3$: 


RLUN: 
RETR: 
STATHD: 
FMO: 
FM: 


STHDe: 


CMP 
BHIS 


$38 


POP 


POP 


I/ 


08:33 PAGE 45-4 
REPORT CODING SECTION 


SEQ 0086 
MOV #11, -CSP 
MOV SP RO 
TRAP CSPNTS 
ADD 024 ,SP 
RPTR, OLSTDOEV ;ALL UNITS DONE? 
3$ ;YES 
@2,RPTR 3NO-DO 
1$ sMORE UNITS 
RS 
MOV (SP)+,R5 
Aa 
MOV CSP )+,R4 
R3 
MOV (SP )+,R3 
Re 
MOV (SP )+ ,R2 
Ri 
MOV (SP )-+,R1 
RO 
MOV (SP )+,RO 
L10006: 
TRAP CSRPT 
/ONGBA DR BLKS WR BLKS RD BDPAK / 
SDCHK/RD DCHK/WR DCHK/RD DCHK/WReENd 
/@AUNIT &018N/ 
fA SD0isA SD5SeA. SD050A. SD38A. / 
/S0308A. SD30A. SD38A. SD038A .aN/ 
/8A 
/RECOV RECOV UNRECOV UNRECOVSN/ 


MISCELLANEOUS SECTIONS 
CZTUF .P1il 


016312 
016314 


016316 
01 


005204 
000753 


022737 
103005 


104454 
000145 
016706 
000000 
104444 


012737 
005004 


103111 


bl 30( 1046) 25-JAN-84 
INITIALIZE SECTION 


.SBTTL INITIALIZE SECTION 


25 -JAN-84 08:09 


016770 
003344 


000040 


016770 


003352 
165044 
100000 
004000 


003352 


164740 
002074 


003314 


000102 
003370 
003314 


002012 


003314 


08:35 PAGE 46 


J7/ 


see 
; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 


; AT THE BEGINNING OF EACH PASS 


INIT: 


INIT: 
1$: 


CHECK: 


GE THRD 
1%: 


BGNINTT 


READEF 


BNCOMPLETE INIT2 


GPHARD R4,R2 


BNCOMPLETE 5$ 


LSINIT:: 
; 
STRT sFOR STATS CLEAR 
TESTS ;seeee CLR TST 9 FLAG 
@EF . START ;START COMMAND? 
3NO 
STRT ;VYES, SET START FLAG 
3;8USS RESET, EH? 
@BLKTBL,.DEVPTR ;SET ALL UNITS ABORTED: 
R4 ;UNIT NUMBER 
@DEVPTR RS 3;GET POINTER 
R4,aR5 s INSERT UNIT @ 
#6IT15.aR5 3SET ABORTED 
@61IT11,.aR5 sSET UNIT NOT TESTED 
RA 342 FOR LOOK-UP 
BUF TBL(R4),RCVBUF (AS) tg eo POINTER Me UNIT'S 
4 3C CT BACK TO UNIT 
DEVPTR, @&STDEV SLAST DEVICE DONE? 
CHECK 3YES 
@2,DEVPTR 3NO-GET 
Ha ;NEXT DEVICE AND 
1% ; SERVICE 
#8. ,LSUNIT ;MAKE SURE NOT 
GE THRD ;TOO MANY UNITS 
101. , TOMANY ; TOMANY -REQUEST tC 
;EXIT 
@BLKTBL .ODEVPTR ;INIT TABLE POINTER 
R4 ;CLEAR DEVICE COUNTER 
SDE VPTR RS ;GET STATUS WORD 
R4,L$LUN ;UNIT NUM. IN CASE ERROR 
3GET HARD INFO 


MOV 
TRAP 


BCC 


TRAP 


BUFFER 


SEQ 0087 


OEF .STAR 
CSREFG 


INIT2 


CSRESET 


IK 7 


MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:35 PAGE 46-1 
CZTUUF .P11 25 -JAN-84 08:09 INITIALIZE SECTION SEQ 0088 

6583 016370 042715 004000 BIC #681T11,8R5 sUNIT IS TESTED! 

6584 016374 012205 MOV CR2)+¢,R3 3R3= 

6585 016576 012265 000204 , MOV (R2)+,TUVECTCRS) ;GET VECTOR ADDRESS 

6586 016402 112265 000061 MOVB (R2)+,O0R+1CRS)  sSAVE UNIT SUMMARY 

6587 016406 005202 INC Re sGET TO WORD BOUND 

6586 016410 012237 016772 MOV CR2)+¢,POTFLG sAND GET POT FLAG 

6589 016414 052715 040000 BIS #61T14,8R5 sSET SEND BREAK FLAG 

6590 016420 032765 000400 000060 BIT @BITS,ORCRS ) sORIVE 0? 

6591 016426 001011 BNE 15% sYES 

6592 016430 032765 001000 000060 BIT #BIT9,ORCRS) sORIVE 1? 

6593 016436 001005 BNE 13$ 4 

6594 016440 ERRSF 102.,NODRVS sNEITHER?! 
(4) 016440 104454 TRAP CSERSF 
(CS) 016442 000146 «WORD 102 
(S) 016444 016736 -WORD NOODRVS 
CS) 016446 -WORD O 

6595 016450 DOCLN sEXIT 

Pt is 016450 104444 TRAP CsOCLN 

6597 016452 105737 016770 13$: TSTB STRT sSTART COMMAND? 

6598 016456 001412 BEQ 14% 3NO, DONT CLEAR 

6599 3sYES-CLEAR STATS 

6600 016460 012702 000202 MOV @BLKEND ,R2 sR2-->END OF STATS 

6601 016464 012701 000110 MOV @WRTNO,RL sFORM ADDRESS OF START: 

6602 016470 060501 ADO RS,R1 3R1-->START OF STATS. 

6603 016472 162702 000110 SUB @WRTNO ,R2 sFORM @ TO CLEAR 

6605 016476 105021 2s: CLRB CR1 de ;CLEAR ‘EM 

6606 016500 005502 DEC R2 sMORE ? 

6607 016502 001575 BNE 2s ;YES 

66068 016504 042715 100000 14%: BIC #61IT15,aR5 sSET NOT ABORTED 

6609 016510 010365 000022 MOV R3,RCSRCRS) sGET DEVICE REGISTERS: 

6610 016514 062703 000002 ADO . 

6611 016520 010365 000024 MOV R3.RCOBCRS) 

6612 016524 0627035 000002 ADD 

6613 016530 010365 000026 MOV R3, XMSRCRS ) 

6614 016534 062703 000002 ADD #2. 

6615 016540 105737 016772 TSTB8 POTFLG sUNIT A POT? 

6616 016544 001402 BEG 4$ sNO 

6617 016546 162703 000004 SUB 04 ,R3 ; YES. . .RCDB=XMDB 

66168 016552 010365 000030 43: MOV R3, XMDBCRS ) 

6619 016556 005065 000072 CLR PATTENCRS ) ;ZERO DATA PATTERN 

6620 016562 005065 000002 CLR RETRYCRS) 3NO RETRIES 

6621 016566 005065 CLR ) sNO REC 

6622 016572 005065 000076 CLR SUCCSC(RS ) sNO SUCCESS 

6623 016576 005065 000074 CLR OLVCRS) sNO OLV ERROR 

6624 016602 005065 000210 CLR MRSPCRS ) ;oeeee CLR MRSP INDICATOR 

6625 016606 005037 003342 CLR ALLGON 30K TO PRINT STATISTICS 

6626 016612 062737 000002 003514 3%: ADD @2,DEVPTR 3-->NEXT DEVICE 

6627 016620 005204 INC R4 ; INCREMENT UNIT NUMBER 

6626 016622 020437 002012 CMP R4,LSUNIT sMORE UNITS? 

yor 016626 061250 BNE i$ ;YES, GP HARD THE NEXT 

6631 016630 005037 003310 CLR SYSTAT sSYSTEM STATUS WORD 

6632 016634 RFLAGS FLGLOC 3;GET USER FLAGS 


C3) 016634 104421 TRAP CSRFLA 


MISCELLANEOUS SECTIONS 
Cc 25 -84 


ZTUUF P11 


016770 
016772 
016774 


MACY11 
08:09 


016774 
003334 


020117 
042514 


30(1046) 25-JAN-84 
INITIALIZE SECTION 


003312 


003336 
003312 


003356 


040515 
052103 


, 


08:33 PAGE 46-2 


S$ CLR BLKER :NO ERROR 
SETLEN: MOV LENGTH,TAPLEN ;GET @ OF RECORDS 
ASR TAPLEN iGET @ BLOCKS PER TRACK 

MOV 0200, SECREC 1PRESET SECOND START AT 200 

CMP @200, TAPLEN @ BLKS > 128.7 

BHI NO. SWITCH TRACKS 2ND PASS 

MOV @400, SECREC ;YES-START AT 4 
3$: ENDINIT 

L10007: 

TOMANY : -ASCIZ /TOO MANY UNITS MAX.*8 / 
NODRVS : -ASCIZ /SELECT AT LEAST 1 DRIVE / 
STRT:: “ORD 
POTFLG: : .WORD ;TUS8 IS IN PDT 
FLGLOC: : .WORD ;USER FLAGS 


TRAP 


SEG 008% 
RO,FLGLO 


CsInit 


MISCELLANEOUS SECTIONS 
CZTUUF .P11 25-JAN-84 08:09 


6674 
6675 
6676 
6677 
6678 
6679 

(3) 


a: 


AAA 
VW hYA~a 
a a a 


BbEEE 


016776 
016776 


017140 


000240 
012746 


MACY11 30(1046) 25-JAN-84 


000540 
017106 
000004 


0000035 
000010 

003352 
000044 

104000 
000022 
017104 


000002 


000004 


017140 
000001 


000004 
177770 


052501 


017104 


003370 
017104 


047524 


M7 


08:33 PAGE 47 
INITIALIZE SECTION 


a 
: THE A UTO DROP CODE IS INVOKED WHEN THE ADR FLAG IS SET AND CHECKS = 
; A VALID INTERFACE LOCATION. OROPS UNIT IF INTERFACE IS NOT THERE 
3.¢-* 
BGNAUTO 
LS$AUTO:: 
NOP ;AUTO DROP ROUTINE 
SETVEC 04, ¢TRPHND, OPRIO7 ;GET BUS TRAP VEC. “— 
MOV 
MOV 
MOV 
TRAP 
ADD 
MOV @BLKTBL,.TRPPTR ;GET TOP OF DATA BLOCK TABLE 
1$: MOV OSTRPPTR,RS ;GET A BL 
28 @BITISIBIT11.0R5 sNOT TESTED OR ABORTED? 
TST QRCSACRS) iN VALIO ADDRESS? 
NOP Os NS a IF NOT) 
2$: CMP TRPPTR, OLSTDEV SHORE TO TRY? 
BHIS 3$ 
ADD 62, TRPPTR s;O0N TO NEXT 
BR 1$ ;GET IT 
3$: CLRVEC 4 sRESTORE 
MOV 
TRAP 
ENDAUTO 
L10010: 
TRAP 
TRPPTR: .WORD 
;ILLEGAL ADDRESS TRAP HANOLER: 
TRPHND: PRINTF #MSAUTO sSAY “AUTO DROPPED” _ 
MOV 
MOV 
TRAP 
ADD 
MOV @RS RO ;GET UNIT @ 
BIC #177770,R0 3;MASK IT OFF 
DpODU RO ;DROP HIM — 


RTI 
MSAUTO: .ASCIZ /s#AAUTO DROP: @N/ 


SEQ 0090 


#4,R0 
CsCveECc 


CsAUTO 


MISCELLANEOUS SECTIONS 
CZTUUF .P11 


017174 
017174 


017176 
017176 
017 


25-JAN-84 08 


“el 3061046) 25-JAN-84 


CLEANUP CODI 
_SBTTL CLEANUP CODING SECTION 


N7 


08:33 PAGE 48 
NG SECTION 


*¢ 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


005737 003342 


001004 
005737 
001401 


104424 


104435 


104412 


002212 


1$: 


BGNCLN 

TST ALLGON 
BNE 1$ 

TST STAEOP 
BEQ i$ 
BRESET 

ENOCLN 


L$CLEAN: : 
sENTRANCE FROM ALL -UNITS-ABORTED? 


3 YES-EXIT 

sNO-STATS AT EOP? 

3NO 

; YES 
TRAP 
TRAP 

L10011: 

TRAP 


SEG 0091 


CSORPT 


CSRESET 


CSCLEAN 


MISCELLANEOUS SECTIONS MACY11 30( 1046) 
25-JAN-84 08:09 


CZTUF P11 


734 
6755 


a 
ars 

 Iolete 
eet et ee 


oO oa AAG 
AAAAAA AARON Ane, 
CON lslet Solel st Sulstete 
Weed Ned Sel ed ee? tet et et Oe re OO Nw rw wv 


017276 
017300 


017246 
100000 


017300 
000002 


003352 
000016 


017276 


000002 017276 


051104 


050117 


B8 


25-JAN-84 06:55 PAGE 49 
DROP UNIT SECTION 


.SBTTL OROP UNIT SECTION 


gee 


3 THE DROP -UNIT rite CONTAINS THE CODING THAT CAUSES A DEVICE 
s TO NO LONGER BE TESTED. 


GE TRS: 
18: 


2s: 
PTR: 


BGNDU 


PUSH 


PUSH 


RE TURN 


RO 

RS 

GETRS 
@6IT15,aR5 
RS 


@ABOMSG ,RO 


@BLKTBL PTR 
@PTR,RS 


2s 
@2,PTR 
is 


sSAVE IT 
MOV 


L$8OU:: 
sRO*UNIT NUMBER 


RO, -( SP) 


sSAVE PRESENT UNIT POINTER 
MOV RS ) 


sGET POINTER TO UNIT 


3SET ABORTED 

sRESTORE PRESENT UNIT POINTER 

MOV ¢ )e, 

sRETRIEVE UNIT NUMBER 

MOV (SP )+,RO 
MOV 
MOV 
MOV 
MOV 
TRAP 
AD0 

Lio0ole: 

TRAP 

3-- UNIT O 


3GET STATUS WORD 
+ i CT UNIT? 


y 
INO, - - >NEXT 
3s CONT INUE 


ABOMSG : fy /BADROPPED UNIT 6018N/ 


SEG 0092 


Cs0u 


C8 


MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:33 PAGE SO 
CZTUF.P11 25-JAN-84 08:09 ADD UNIT SECTION 


6795 .SBTTL ADD UNIT SECTION 


SEQ 0095 


gee 
6798 : THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
: TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
€S00 1 TO THE TEST CYCLE. 
gee 


68035 017326 BGNAU 
(3) 017326 L$AU:: 


6805 ;THE INIT CODE CONTAINS ALL CODE NECESSARY TO ADD A UNIT. 


017326 ENDAU 
> 017326 L10015: 
: 017326 104452 TRAP CsAu 


D8 


MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 33 PAGE 51 
CZTUF.P11 25-JAN-84 08:09 TEST 1 7 DEVICE SELF DIAGNOSTIC EXECUTION SEQ 0094 
6886 \SBTTL TEST 1 / DEVICE SELF-DIAGNOSTIC EXECUTION 
6887 
6888 017330 BGNMOD 
6889 \NLIST ME,BEX 
6890 
6891 017330 BGNTST 
(3) 017330 Ths: 
6892 017330 TSTID eTST1 
(1) 017330 012737 017374 003330 MOV @TST1,TSTTOP § ;SAVE ADDR OF TEST 
(1) 017336 004737 006024 CALL SETUP sINIT UNITS TSTPC 
(1) 017342 004737 005652 CALL = SETOR ;GET 1ST DAVS. 
(1) 017346 004737 006072 CALL RUN ;D0 TEST 
(1) 017352 004737 005532 CALL § SWAPOR ;GET NEXT DRVS. 
(1) 017356 103004 BCC 64% BR NO 2ND DRVS 
(1) 017360 004737 006024 CALL =‘ SETUP ;REINIT UNITS TSTPC 
(1) 027364 004737 006072 CALL RUN ;REPEAT TEST 
(1) 017370 648: ; DONE 
6893 017370 EXIT TST 
(3) 017370 104432 TRAP —- CSEXIT 
(3) 017372 000136 .WORD 10014-. 
6895 017374 TST1: TUSELF 
(1) 017374 012700 027746 648: MOV @TRBUF .RO sFORM COMMAND PACKET 
(1) 017400 112710 000002 MOVB § @RSCMND, @RO ;COMMAND FLAG 
(1) 017404 112760 000012 000001 MOVB Z.1(RO)  ;SIZE OF MESSAGE 
(1) 017412 112760 000007 000002 @RSSSLF.2CRO) SELF TEST OPERATION 
(1) 017420 1 000003 CLRB  3(RO) 3NO MODIFIER. 
(1) 017424 005060 000004 CLR =—s-« &CRO) NO DRIVE OR SWITCHES 
(1) 017430 005060 000006 CLR —s- 6 CRO) ;NO SEQUENCE NUMBER 
(1) 017434 005060 000010 CLR —s- 8. CRO) MO BYTES 
(1) 017440 000012 CLR 10. (RO) NO RECORD @ 
C1) 017444 012701 000012 MOV @RSMSIZ.R1 ;GET SIZE 
(1) 017450 005721 TST (R1)> 322 FOR CHECKSUM 
(1) 017452 012765 000016 000070 MOV @ASSNSZ,SNDCNT(RS) ;SIZE TO SEND 
(1) 017460 004737 013674 CALL CHKSUM sFORM CHECKSUM 
(1) 017464 010110 MOV R1,(RO) rINSERT INTO PACKET 
(1) 017466 012765 000002 000034 MOV @RSEND.XSFLGCRS) ;€XPECT END, 
(1) 017474 012765 000016 000076 MOV @RSNDSZ.XSCNT(RS) ;THIS BIG 
(1) 017502 012765 000001 000032 MOV #1, XSPKNACRS) — sAND 1 PACKET 
3 
(1) 017510 004737 006600 CALL RSVP ;RETURN TO SCHEDULER 
(1) 017514 032715 000010 BIT @BIT3, ERS ;RETRY?2(BAD FLAG) 
(1) 017520 001325 BNE 648 : YES 
6896 017522 005237 003324 INC DONE 
6897 017526 000207 RE TURN 
6898 
6899 
6900 017530 ENDTST 
(3) 017530 L10014: 
(3) 017530 104401 TRAP CsETsT 


E8 


MISCELLANEOUS SECTIONS MACY11 3001046) 25- wr -64 08:35 PAGE S2 


CZ2TUUF .P11 25-JAN-84 08:09 TEST SEEK EOT,BOT SEQ 0095 
peo .SBTTL TEST 2 / SEEK EOT,.BOT 
6905 017532 BGNTST 
(3) 017532 Tes: 
6906 017532 TSTID e#TST2 
€1) 017532 012737 017576 003350 MOV eTstT2, TSTTOP sSAVE ADDR OF TEST 
(1) 017540 004737 006024 CALL SETUP sINIY UNITS TSTPC 
(1) 017544 004737 005652 CALL SETOR ;sGET 1ST ORVS. 
€1) 017550 004737 006072 CALL RUN 300 
(1) 017554 004737 005532 CALL SWAPDR <= NEXT ORVS. 
€1) 017560 103004 BCC 64% NO 2ND ORVS 
(1) 017562 004737 006024 CALL SETUP SREINIT UNITS TSTPC 
(1) 017566 004737 006072 CALL RUN sREPEAT TEST 
€1) 017572 64%: 3 CONE 
6907 017572 ExIT TST 
€3) 017572 104432 TRAP CSExIT 
€3) 017574 000206 -WORD L10015-. 
pee. 
6910 017576 005004 TSTe: CLR 4=INDEX INTO RECORD TABLE 
poe y 017600 016465 017765 000064 i$: MOV RECDAT(RG).RECCRE) ;GET THE RECORD 
“7” 017606 TUSEEK RECCRS).OR(CRS) ;SEEK IT 
€1) 017606 012700 027746 64%: MOV @TRBUF .RO 3-->C(POINT TO) XMIT BUFF 
€1) 017612 112710 Move @RSCMND . BRO s™ORM COMMAND MESSAGE PA 
(1) 017616 1 000012 000001 MOVB @RSMSIZ,1CRO) 8 S THIS BIG 
€1) 017624 112760 000002 “OvVB Ss ) s0P CODE IS SEEK 
(1) 0176352 016560 000064 9000012 MOV RECCRS).10.CRO) ; TG THIS RECORD 
€1) 017640 116560 000060 000004 MOVE OR 4. 3;AND WHICH DRIVE 
C1) 017646 105060 000003 CLRB ‘ sNO MODIFIER 
€1) 017652 105060 000005 CLRB ‘ ) sNO SWITCHES 
€1) 017656 005060 000006 CLR 6. ) 
€1) 017662 005060 000010 CLR &.CRO sNO BYTE COUNT 
€1) 017666 012701 000012 MOV @RSMSIZ.R1 sGET COUNT 
€1) 017672 005721 TST CR1)- sPLUS FLAG « BCNT 
(1) sFOR CHECKSUM CALC 
€1) 017674 004737 013674 CALL CHKSUM :RO-->TOP Ri=@ OF BYTE 
€1) 017706 010110 MOV R1,CRO) sINSERT INTO PACKET 
(1) 3SET UP EXPECTATIONS: 
€1) 017702 012765 000016 000070 MOV @RSSNSZ,.SNDCNT(RS) ;HOW MANY TO SEND 
€1) 017710 112765 000002 000034 MOvVB @RSCMND,.XSFLGCRS) ;EXPECT END PACK 
€1) 017716 012755 000016 000036 MOV @RSNDSZ. rah RS) ;COUNT WITH THIS 
: : 017724 012765 000001 0000352 MOV #1. _ XSPKNMCRS sEXPECT ONLY 1 PACKET 
€1) 017732 004737 006600 CALL RSVP 3 SEND 
(1) 3;AND RETURN TO SCHEDULER 
€1) 017736 032715 000010 BIT @BITS.aRs *RETRY (FLAG BYTE ERROR) 
ons 017742 001321 BNE 64% ;YES 
6914 
6915 017744 062704 000002 ADD @2,R4 ;sPOINT TO NEXT RECORD 
6916 017750 026427 017766 177777 CMP RECDAT(R4),@-1. sLAST ONE DONE? 
6917 017756 001310 BNE 16 3NO -LOOP 
6918 017760 005237 003324 INC DONE 3 YES-SET DONE FLAG 


F8 


MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:35 PAGE Se2-1 


CZTUVF . 


Pil 


25-JAN-84 08:09 


000000 


000200 
000177 
000377 


000400 
177777 


104401 


RECDAT: O 


TEST 2 / SEEK EOT,BOT 


;80T 
aor OTHER TRACK 


sEOT OTHER TRACK 
sB0T AGAIN 


L10015: 
TRAP 


SEQ 0096 


CseTst 


G8 


MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84_ 08:33 PAGE 53 
CZTUUF.P11  25-JAN-84 08:09 TEST 3 / HIGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE) SEQ 0097 
6930 'SBTTL TEST 3 / HIGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE) 
6932 ; WRITE THEN READ VARYING DATA FOR ALL PHYSICALLY ADJACENT BLOCKS AROUND 
6933 ; A RECORD, GO HALF-WAY INTO REMAINING TAPE REPEAT UNTIL EOT. 
6935 020008 BGNTST 
€3) 020004 T3:: 
6936 020004 TSTID oeTST3 
(1) 020004 012737 020050 003330 MOV @TST3,TSTTOP  ;SAVE ADOR OF TEST 
(1) 020012 004737 006024 CALL SETUP sINIT UNITS TSTPC 
(1) 020016 004737 005652 CALL  SETOR ;GET 1ST ORVS. 
(1) 020022 004737 006072 CALL § RUN ;00 TEST 
(1) 004737 005532 CALL § SWAPOR ;GET NEXT ORVS. 
(1) 020032 103004 BCC 64% ;8R NO 2ND DRVS 
(1) 020034 004737 006024 CALL SETUP sREINIT UNITS TSTPC 
<1) 020040 004737 006072 CALL RUN ;REPEAT TEST 
€1) 020044 64%; ; DONE 
6937 020044 EXIT TST 
(3) 020044 104432 TRAP CSEXIT 
(3) 020046 001326 \WORD L10016-. 
$950 
6940 020050 012765 000100 000066 TST3: MOV @100,TMPCRS) INIT TO HALF OF REMAINING 
6941 020056 005004 CLR R4 FOR INDEX INTO DATA TABLE 
6942 020060 005065 000064 CLR RECC(RS) ART AT RECORD 0 
6943 020064 016465 022766 0C0072 18: MOV TST SPTCRA) PATTENCRS) :GET DATA 
6944 020072 TUWRIT PATTENCRS).REC(RS), 0512. ,DRCRS), 00 
(1) 020072 012700 927746 72%: MOV @TRBUF .RO ;MAKE COMMAND PACKET: 
(1) 020076 112710 000002 MOVB § @RSCMND, GRO ;COMMAND FLAG 
(1) 020102 112760 000012 000001 MOVE  @RSMSIZ.1(RO) ;THIS SIZE 
(1) 020110 112760 00000 MOVB  ORSSWR.2(RO) ; INSERT OP CODE-wWRITE 
(1) 020116 112760 000003 MOVB 80,3. (RO) SVERIFY (1 OR 0) 
(1) 124 116560 000060 MOVB  ORCRS).4.(RO) ;DRIVE @ 
(1) 020132 112760 000020 000005 MOVB  #020,5.(RO) ;MAINTENANCE MODE SWITCH 
C1} 020140 000006 CLR 6.(RO) QUENCE @ 
(1) 020144 012760 001000 000010 MOV 12..8.(RO)  ;TOTAL COUNT 70 WRITE 
(1) 020152 016 000012 MOV REC(RS).10.(RO) ;AT RECORD N 
(1) 020160 012701 000012 MOV IZ.R1 STME PACKET SIZE PLUS+2 
C1) 020164 3 TST CRi)> FLAG AND COUNT) INTO R 
(1) 012765 16 000070 MOV SNSZ.SNOCNT(RS) ;LOAD THE SIZE TO S 
(1) 020174 004737 013674 CALL  CHKSUM 3RO --> RL=COUNT 
(1) 010110 MOV R1,(RO) ;PUT CHKSUM IN PACKET 
(1) ;SET UP EXPECTATIONS: 
(1) 020202 012765 000020 000034 MOV @RSCONT.XSFLGCRS) ;THE FLAG 
(1) 020210 012765 000001 000036 MOV @1.XSCNT(RS) |; THE COUNT 
(1) 020216 012765 000001 000032 MOV #1. XSPKNMC(RS)  ;THE @ PACKETS EXPECTED 
(1) 020224 012702 001000 MOV 0512. .R2 ;GET @ OF DATA B 
(1) 020230 004737 006600 CALL RSVP ;SEND CAND RETURN TO SCH 
(1) 020234 032715 000010 BIT @BIT3. ERS SFLAG BYTE ERROR? 
(1) 020240 001314 BNE 728 3YES 
(1) 020242 042715 010000 BIC eBIT12, RS SFLAG FOR LAST PACKET 
(1) 020246 012700 027746 64%: MOV @TRBUF .RO ;POINT TO TOP OF BUFFER 
(1) 020252 020227 000200 CHP R2,0128. sSTART DATA PACKET(S) 
(1) 020256 101004 BHI 653 ;@512. > 128. 
(1) 020260 010201 MOV R2,R1 :@512.<128. 
(1) 020262 052715 010000 BIS @BIT12,9R5 ;SO LAST PACKET NOW 


H8 


MISCELLANEOUS SECTIONS MACY1i1 30(1046) 25-JAN-84 08:53 PAGE 55-1 
CZTUF P11 25-JAN-84 08:09 TEST 3 / HIGH ACTIVITY WRITE/READ (Sl2 BYTE/BLOCK MODE) SEQ 0096 
(1) 020266 900402 BR 66$ sUSE REMAINING COUNT 
(1) 020270 9012701 000200 65%: MOV #126. ,R1 sUSE 128. BYTES 
(1) 020274 110160 000001 663: MOVE R1,10RO) iCOPY COUNT TO BUFFER 
€1) 020300 010103 MOV 1,R3 sR3*COUNTER TO LOAD BUFF 
C1) 020302 112710 000001 MOVB @RSDATA, GRO sFLAG FIRST 
C1) 020306 7 TST CRO)+ ;SKIP COUNT 
€1) 020310 116520 000072 67%; MOVB PATTENCRS),CRO)> s INSERT DATA 
(1) 020314 005503 DEC RS sMORE ? 
C1) 020316 101574 BHI 67% sYES 
C1) 612700 027746 MOV oTRBUF ,RO 3-->TOP AGAIN 
(1) 1 000001 MOVE 1€RO),R1 sGET COUNT 
(1) 3 042701 177400 BIC #177400 ,R1 sZERO SIGN EXTEND 
(1) 020334 010165 000070 MOV R1,SNOCNTCRS) ;HOW MANY TO SEND PLUS 
(1) 340 062765 000004 000070 ADD @4,SNOCNTCRS) ;FLAG,COUNT,CHKSUM 
(1) 020346 062701 000002 ADD #2,R1 sCOMPENSATE FOR FLAG + C 
1) 020352 004737 015674 CALL CHKSUM sFOR CHECKSUM CALC. 
€1) 020356 110120 MOVE R1,CRO)> sCHKSUM INTO PACKET 
€1) 020360 0003501 SWAB Ri sEVEN ON AN OOD 
€1) 020362 110120 MOVB R1,CRO)> sBYTE BOUNDARY 
€1) 020364 032715 010000 BIT 661IT12.aR5 sLAST DATA PACKET? 
€1) 020370 001412 BEQ 68$ 3NO 
€1) 020372 012765 000002 000054 MOV @RSEND,XSFLG(RS) ;YES-EXPECT ‘END’ 
€1) 020400 012765 000016 000036 MOV @RSNDSZ.XSCNTCRS) ;OF THIS SIZE 
€1) 020406 012765 000001 000052 MOV @1,XSPKNMCRS) ;AND 1 PACKET 
C1) 020414 000411 BR 69% 3 SEND 
C1) 020416 012765 000020 000034 68%: MOV @RSCONT.XSFLGCRS) ;CNOT LAST), EXPECT ° 
€1) 020424 012765 000001 000056 MOV #1, XSCNTCRS) sAND 1 BYTE 
(1) 020432 012765 000001 000052 MOV @1,XSPKNM(RS) ;AND 1 PACKET 
€1) 020440 004737 006600 69%: CALL RSVP sSEND PACKET 
¢1) sAND RETURN TO SCHEDULER 
C1) 032715 000010 SIT @BIT3.aR5 :FLAG BYTE RETRY? 
€1) 020450 001210 BNE 72% ;YES 
€1) 020452 032715 002000 BIT @B61T10,aR5 ;RETRY DATA ERROR? 
€1) 020456 001004 BNE 70$ YES 
C1) 020460 162702 000200 SUB #128. ,R2 ;NO. MORE DATA TO SEND? 
€1) 020464 101270 BHI 64% YES 
€1) 020466 000502 BR 718 3NO 
ee 020470 708: TURTRY RECCRS),@512..DRCRS) sRETRY HERE 
C2) 
C2) 020470 012700 027746 768: MOV eTRBUF .RO sFORM CMND PACK: 
C2) 020474 112710 000002 MOVE ORSCMND , BRO 3: MESSAGE PACK TYPE 
(2) 020500 112760 000012 000001 MOVE @RSMSIZ.1CRO) : THIS BIG 
C2} 020506 112760 000002 000002 MOVB @RSSROD.2CRO) ;0P 
C2) 020514 016560 000064 000012 MOV RECCRS).10.CRO) ; THIS RECORD 
C2) 020522 116560 000060 000004 MOVES DRCRS).4.CRO) ;THIS ORIVE 
€2) 020530 105060 000003 CLRB 3(RO) ;PRESET NORM THRESHOLD 
(2) 020534 105715 TST8 aRS sREDUCED? 
€2) 020536 100002 BPL 77$ 3NO 
€2) 0206540 105260 000003 INC8 3CRO) :YES-CHANGE THRESHOLD 
(2) 620544 012760 001000 000010 778; MOV #512. .8.CRO) 3@ BYTES DESIRED 
(2) 020552 112760 000020 000005 MOVE #020 ,5.(RO) sMAINTENANCE MODE 
(2) 020560 005060 000006 CLR 6.CRO) 3NO SEQUENCE @ 
(2) 020564 012701 000012 MOV @RSMSIZ.R1 :SIZE OF PACKET 
€2) 020570 005721 TST CR1)+ ;PLUS FLAG-COUNT INTO R1 
C2) 020572 012765 000016 000070 MOV @RSSNSZ,SNDCNT(RS) ;SET UP SIZE TO SEND 
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MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:33 PAGE 53-2 
CZTUVF P11 3/H#H 


25-JAN-84 08:09 TEST IGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE ) SEQ 0099 

(2) 

(C2) 020600 004737 015674 CALL CHK SUM 3FORM CHECKSUM R1=COUNT 

$33 020604 010110 MOV R1,CRO) s INSERT IN PACKET 

C2) 920606 012701 901000 MOV #512.,R1 ;SET EXPECTATION 

(2) sCALC @ OF DATA PACKETS 

(2) 020612 012703 000054 MOV OXSFLG,RS sOF FSET OF FLAG 

(2) 020616 060505 ADO RS .RS sABS. ADDR. OF XSFLG 

(2) 020620 005002 CLR R2 sPRESET 

(2) 020622 005202 738: INC R2 3@ PACKETS EXPECTED 

(2) 020624 90127235 000001 MOV ORSDATA,CR3)> sLOAD XSFLG 

(2) 020630 012723 000204 MOV #132. ,(R3)> sAND EXPECT COUNT 

C2) 020634 162701 000200 SUB #126. ,R1 sNEG RESULT LAST TIME 

(C2) 020640 101401 BLOS 75% sLAST TIME! 

(2) 020642 000767 BR 73$ sMORE TO DO 

C2) 020644 005202 75$: INC R2 sADD ONE FOR END PACK 

(2) 020646 010265 000052 MOV R2,XSPKNMC(RS) ;SAVE @ PACKETS TO EXPEC 

(2) 020652 90127235 900002 MOV ORSEND ,CR3)+ sEXPECT AN END 

pe 020656 012715 000016 MOV ORSNDSZ ,(R3) sTHIS BIG-14. BYTES 

2 

€2) O20662 004737 006600 CALL RSVP 3 SEND 

rf 4 sAND RETURN TO SCHEDULER 
—% 020676 TUREAD RECCRS). #512. ,.0RC(RS), 00 

(1) 

€1) 020676 012700 027746 82%: MOV @TRBUF .RO sFORM CMND PACK: 

€1) O20702 112710 000002 MOVB sMESSAGE PACK TYPE 

€1) 020706 112760 O0CO12 000001 MOVB ORSMSIZ.1°RO) ;THIS BIG 

(1) 020714 112760 000002 000002 MOVE ORSSRD .2C RO) sOP CODE IS READ 

€1) 020722 016560 000064 000012 MOV RECCRS}.10.CRO) ; THIS RECORD 

(1) 020730 116560 000060 MOVB ORCRS).4.CRO) ;THIS ORIVE 

€1) 020736 112760 000000 000005 MOVB @0,3.(RO) ; VERIFY 

€1) 020744 012760 001000 900010 MOV #512. .8.CRO) ;TOTAL BYTES TO READ 

(1) 020752 112760 000020 MOVB #020,5. ) sMAINTENANCE MODE 

(1) 020760 000006 CLR ° 

€1) 020764 012701 000012 MOV ORSMSIZ.R1 ;GET SIZE OF PACKET 

€1) 020770 005721 TsTt (R1)-> 302 F 

€1) 020772 012765 9000016 000070 MOV @RSSNSZ. SNDCNTCRS) :SIZE TO 

€1) 021000 004737 013674 CALL CHKSUM ;F ORM CKSUM R1=COUNT 

oes 021004 010110 MOV R1,CRO) ; INSERT CHECKSUM 

€1) 021006 012701 001000 MOV #512. .R1 ;SET EXPECTATION 

(1) ;CALC @ OF DATA PACKETS 

€1) 021012 012703 000034 MOV @xSFLG,RS ;GET OFFSET 

(1) 021016 060503 ADD RS.RS ;ABS. ADDR. OF XSFLG 

€1) 021020 005002 CLR R2 ;PRESET AS NONE 

(1) 021022 005202 788; INC R2 3@ PACKETS EXPECTED 

€1) 021024 012723 000001 MOV @RSDATA,CRS)-+ ;LOAD XSFLG 

€1) 021030 012723 000204 MOV #132..CR3)> ;AND EXPECTED COUNT 

€1) 021034 162701 000200 SUB #128. ,R1 sNEG RESULT LAST TIME 

€1) 021040 101401 BLOS 803 sLAST TIME 

€1) 021042 000767 BR 788 sMORE TO DO 

€1) 021044 005202 808; INC R2 ;ADD ONE FOR END PACK 

(1) 021046 010265 000032 MOV R2,XSPKNM(RS)  ;SAVE @ PACKETS TO — 

€1) 021052 012723 000002 MOV @RSEND CRS )+ ;EXPECT AN END ALSO. 


MISCELLANEOUS SECTIONS 


CZTUAF P11 
(1) 021056 
(1) 021062 
(1) 
(1) 021066 
(1) 021072 
(1) 021074 
(2) 
(2) 
(2) 021074 
C2) 021100 
(2) 021104 
C2) O21112 
(2) 021120 
(2) 021126 
C2) 11 
<2) il 
(2) 021142 
(2) 021144 
€2) 021150 
(2) 021156 
(2) 021164 
€2) 021170 
(2) 021174 
C2) 021176 
(2) 
C2) 021204 
(2) 021210 
(2) 
(2) 021212 
(2) 
C2) 021216 
(2) O2i222 
(2) 021224 
(2) 021226 
(2) 021230 
(2) 021234 
(2) 021240 
(2) 1244 
C2) 021246 
(2) 021250 
(2) 021252 
(2) 021256 
(2) 021262 
(2) 
(2) 021266 
C2) 
C2) 
6946 021276 
6947 1302 
6948 0215306 
6949 02131° 
6950 021314 
6951 021316 
6 021324 
6953 021352 
6954 021534 


012713 
004737 


032715 
001500 


012765 


004737 
010110 


012701 
012703 


010265 
012725 


004737 


MACY11 30(1046) 25-JAN-84 


25-JAN-84 08:09 


000016 
006600 


002010 


000200 
001000 


000001 
000002 
000012 
000004 


000010 


000005 


000070 


08:33 PAGE 535-3 
TEST 3 / HIGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE) 


2s: 


J8 


81%: 
86%: 
87%: 
83%: 
85s: 
@2,R4 
TST3SPTCR4) 
2s 
1% 
4 
0200 ,RECCRS ) 
#1000 ,RECCRS) 
3$ 
1$ 


SEQ 0100 


MOV ORSNDSZ,CR3) —_ BIG-14. BYTES 
CALL RSVP NO 
SAND RETURN TO SCHEDULER 
BIT #BIT1LOIBITS,aRs TRETR v? 
BEQ 79% 3;NO. 
TURTRY REC(RS), 0512. ,ORCRS) ;YES 
MOV OTRBUF ,RO sFORM CMND PACK: 
MOVB @RSCMND , BRO sMESSAGE PACK TYPE 
ORSMSIZ,1CRO) ‘THIS BIG 
MOVB @RSSRD ,2CRO) s0P CODE -READ 
MOV RECCRS).10.CRO) ; THIS RECORD 
DORCRS),4.CRO) sTHIS DRIVE 
CLRB 3(RO) $ SET NORM THRESHOLD 
TSTB aRs $ 
BPL 87$ sNO 
INCB 3(RO) ; YES-CHANGE THRESHOLD 
MOV 9512.,8.CRO) 3@ BYTES DESIRED 
MOVs 9020 ,5.CRO) sMAINTENANCE MODE 
CLR 6.CRO) sNO SE 
MOV @RSMSIZ,R1i ; SIZE OF PACKET 
TST CR1I)-> sPLUS FLAG+COUNT INTO R1 
MOV ORSSNSZ, SNDCNTCRS) sSET UP SIZE TO SEND 
CALL CHKSUM sFORM CHECKSUM R1=COUNT 
MOV R1,CRO) s INSERT IN PACKET 
MOV #512. .R1 ;SET EXPECTATION 
sCALC @ OF DATA PACKETS 
MOV @xSFLG,.RS ;OF FSET OF FLAG 
ADD R5,.R5 ;ABS. ADDR. OF XSFLG 
CLR ;PRESET 
INC Be ;@ PACKETS EXPECTED 
MOV @RSDATA,CR3)+ SLOAD X XSFLG 
MOV #132. .CR3)-> ;AND EXPECT COUNT 
#128. ,R1 sNEG RESULT LAST TIME 
BLOS 85$ *LAST TIME! 
BR 83$ sMORE TO DO 
INC R ;ADD ONE FOR END PACK 
MOV m RS) : SAVE ¢ poy he TO EXPEC 
MOV @RSEND,.CR3)+ sEXPECT AN END 
MOV @RSNDSZ. (R3) ;THIS BIG-14. BYTES 
CALL RSVP ; SEND 


;AND RETURN TO SCHEDULER 


:POINT TO NEXT DATA 
sEND? 


;YES 

1NO - WRITE, READ NEW DATA 
sPOINT TO FIRST DATA 

:BUT NOW USE ADJACENT RECORD 
sALL ADJACENT RECORDS DONE? 


;YES 
;NO-WRITE, READ AT NEW RECORD 
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MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:35 PAGE 53-4 
CZTUUF .P11 25-JAN-84 08:09 TEST 3 / HIGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE) SEQ 0101 
6955 021340 162765 001000 000064 3$: SUB #1000 ,RECCRS) sRESTORE TO NEXT “ 
6956 021346 066565 9000066 000064 ADD TMPCRS),RECCRS) ;HALF INT ay +a! OF T 
6957 021354 006265 000066 ASR TMPCRS ) sHALF OF HALF FOR NEXT TIME 
6958 021360 103402 BCS 4¢ ; DONE ? 
6959 021362 000137 020064 JMP i$ sNO 
6960 021366 005237 003524 4$: INC DONE sYES-SET FLAG 
6961 021372 000207 RETURN 
021374 ENDTST 
(3) 021374 L10016: 
TRAP CseTst 


(3) 021374 104401 


L8 


MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:33 PAGE 53-5 
CZTUUF.P11 25-JAN-84 08:09 TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) SEQ 0102 

6965 .SBTTL TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) 

6967 ; WRITE THEN READ VARYING DATA FOR ALL PHYSICALLY ADJACENT BLOCKS AROUND 

6968 ; A RECORD, GO HALF-WAY INTO REMAINING TAPE REPEAT UNTIL EOT. 

6970 021376 BGNTST 
(3) 021376 14:: 

6971 021376 TSTID @TST4 
(1) 021376 012737 021442 003330 MOV @TST4,TSTTOP § ;SAVE ADOR OF TEST 
(1) 021404 004737 006024 CALL SETUP sINIT UNITS TSTPC 
(1) 021410 004737 005652 CALL  SETOR ;GET 1ST DRVS. 
(1) 021414 004737 006072 CALL RUN ; 
(1) 021420 004737 005532 CALL § SWAPOR GET NEXT DRVS. 
(1) 021424 103004 BCC 64$ 2ND DRVS 
(1) 021426 004737 006024 CALL SETUP SREINIT UNITS TSTPC 
(1) 021432 004737 00607 CALL RUN sREPEAT TEST 
(1) 021436 645: ; DONE 

6972 021436 EXIT TST 
(3) 021436 104432 TRAP = CSEXIT 
(3) 021440 001340 .WORD L10017-. 

or 

6975 021442 012765 000400 000066 TST4; MOV @400,TMP(RS) | ;INIT TO HALF OF REMAINING 

6976 021450 005004 CLR R4 sFOR INDEX INTO DATA TABLE 

6977 021452 005065 000064 CLR REC(RS) SSTART AT RECORD 0 

6978 021456 016465 022766 000072 1$: MOV TSTSPT(R4),PATTENCRS)  sGET DAT 

6979 021464 ~ TUWRIT PATTENCRS) RECCRS) 0126. (DRCRS), OBIT7 
(1) 021464 012700 027746 728: MOV @TRBUF .RO MAKE COMMAND PACKET: 
(1) 021470 112710 000002 MOVB § @RSCMND,GRO ;COMMAND F 
(1) 021474 112760 000012 000001 MOVE  @RSMSIZ.1(RO) ; THIS SIZE 
(1) 021502 112760 000003 000002 MOVB @RSSWR.2(RO)  ; INSERT OP CODE-wWRITE 
(1) 021510 112760 000200 000003 MOVE © #BIT7,5.(RO) VERIFY (1 OR 0) 
(1) 021516 116560 000060 000004 MOVE ODRCRS).4.(RO) ;DRIVE @ 
Ci) O21 112760 000020 000005 MOVB 020,5.(RO) sMAINTENCNCE MODE SWITCH 
(1) 021532 005060 000006 CLR 6.CRO) SEQUENCE @ 
(1) 021536 0612760 000200 000010 MOV 0128..8.(RO)  ;TOTAL COUNT TO WRITE 
(1) 021544 016560 000064 000012 MOV REC(RS).10.(RO) ;AT RECORD N 
€1) 021552 012701 000012 v @RSMSIZ,R1 ;THE PACKET SIZE PLUS+2 
(1) 021556 005721 TST (R1)« ;(FLAG AND COUNT) INTO R 
(1) 021560 012765 000016 000070 MOV @RSSNSZ,SNOCNT(RS) ;LOAD THE SIZE TO S 
(1) 021566 004737 013674 CALL § CHKSUM ;RO --> R1=COUNT 
(1) 021572 010110 MOV R1,(RO) sPUT CHKSUM IN PACKET 
(1) ;SET UP EXPECTATIONS: 
(1) 021574 012765 000020 000034 MOV @RSCONT.XSFLG(RS) ;THE FLAG 
(1) 021602 012765 000001 000036 MOV @1,XSCNT(RS) | ;THE COUNT 
(1) 021610 012765 000001 000032 MOV @1,XSPKNMC(RS)  ;THE @ PACKETS EXPECTED 
(1) 021616 012702 000200 MOV #128. .R2 :GET @ OF DATA B 
(1) 021622 004737 006600 CALL RSVP :SEND CAND RETURN TO SCH 
(1) 021626 032715 000010 BIT OBITS. ORS iFLAG BYTE ERROR? 
(1) 021632 001314 BNE 72% YES 
(1) 021634 042715 010000 BIC @BIT12.8R5 ;FLAG FOR LAST PACKET 
(1) 021640 012700 027746 64%: MOV @TRBUF ,RO ;POINT TO TOP OF BUFFER 
(1) 021644 020227 000200 CMP R2, 0128. :START DATA PACKET(S) 
(1) 021650 101004 BHI 65$ :@128. > 128.! 
(1) 021652 010201 MOV R2,R1 :9128.<128. 
(1) 021654 052715 010000 BIS @BIT12,aR5 ;SO LAST PACKET NOW 
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MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:33 PAGE 53-6 
CZTUUF.P11 | _25-JAN-84 08:09 TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) SEQ 0103 
(1) 021660 000402 BR 66$ ;USE REMAINING COUNT 
C1) 021662 012701 000200 65%: MOV #128. ,R1 ;USE 128. BYT 
(1) 021666 110160 000001 66$: MOVB  R1,1(RO) ;COPY COUNT TO BUFFER 
(1) 021672 010103 R1,R3 ;R3=COUNTER TO LOAD BUFF 
(1) 021674 112710 000001 MOVB $ oRSDATA,@RO SFLAG FIRST 
(1) 021700 005720 TST CRO)+ ;SKIP COUNT 
€1) 021702 116520 000072 67$: MOVB  PATTENCRS),C(RO)- ; INSERT DATA 
(1) 021706 005303 DEC R3 ;MORE? 
(1) 021710 101374 BHI 67$ YES 
(1) 021712 012700 027746 MOV OTRBUF ,RO 3-->TOP AGAIN 
(1) 021716 116001 000001 MOVB 1(RO),R1 ;GET T 
(1) 021722 042701 177400 BIC 6177400,R1 ;ZERO SIGN EXTEND 
€1) 021726 010165 000070 MOV R1,SNOCNT(RS) ;HOW MANY TO SEND PLUS 
C1) 021732 062765 000004 000070 ADD 64.SNDCNTCRS)  ;FLAG,COUNT.CHKSUM 
(1) 021740 062701 000002 ADD 92,R1 ;COMPENSATE FOR FLAG + C 
C1) 021744 004737 013674 CALL § CHKSUM SFOR CHECKSUM CALC. 
1) 021750 110120 MOVB R1,(RO)+ ;CHKSUM INTO PACKET 
(1) 021752 000301 SWAB CORR EVEN ON AN OOD 
(1) 021754 110120 MOVB R1,C(RO)+ ;BYTE BOUNDARY 
(1) 021756 032715 010000 BIT @B1T12,aRS ;LAST DATA PACKET? 
€1) 021762 001412 BEQ 68$ ;NO 
C1) 021764 012765 000002 000034 MOV @RSEND,XSFLG(RS) ;YES-EXPECT ‘END’ 
(1) 021772 012765 000016 000036 MOV @RSNDSZ,.XSCNT(RS) ;0F THIS SIZE 
€1) 022000 012765 000001 000032 MOV @1,XSPKNMC(RS)  ;AND 1 PACKET 
(1) 022006 000411 BR 693 ; SEND 
(1) 022010 012765 000020 000034 68%: MOV @RSCONT.XSFLG(RS) ;(NOT LAST), EXPECT ' 
C1) 022016 012765 000001 000036 MOV @1,XSCNT(RS)  ;AND 1 BYTE 
(1) 022024 012765 000001 000032 MOV @1.XSPKNM(RS) ;AND 1 PACKET 
(1) 022032 004737 006600 69%: CALL RSVP ;SEND PACKET 
(1) ;AND RETURN TO SCHEDULER 
(1) 022036 032715 000010 BIT @BIT3, ERS “FLAG BYTE RETRY? 
(1) 022042 001210 BNE 72$ YES 
(1) 022044 032715 002000 BIT @81T10,0R5 ;RETRY DATA ERROR? 
(1) 022050 001004 BNE :YE 
(1) 022052 162702 000200 SUB $128. .R2 :NO, MORE DATA TO SEND? 
(1) 022056 101270 BHI 64$ YES 
(1) 000502 BR 71$ ;NO 
C1) 022062 70$:  TURTRY RECC(RS),@128..DR(R5) ;RETRY HERE 
(2) 
(2) 022062 012700 027746 76%: MOV @TRBUF .RO ;FORM CMND PACK: 
(2) 022066 112710 000002 MOVB ; ;MESSAGE PACK TYPE 
(2) 022072 112760 000012 000001 MOVB § @RSMSIZ.1(RO) ;THIS BIG 
(2) 022100 112760 000002 000002 MOVB @RSSRD.2(RO)  ;0P CODE-READ 
(2) 022106 016560 000064 000012 MOV RECCRS).10.(RO) ; THIS RECORD 
(2) 022114 116560 000060 000004 MOVB ORCRS),.4.(RO) ;THIS DRIVE 
(2) 022122 105060 000003 CLRB  3(RO) [PRESET NORM THRESHOLD 
(2) 022126 105715 TSTB —s_ «RS ; REDUCED? 
(2) 022130 100002 BPL 773 :NO 
(2) 022132 105260 000003 INCB 3(RO) YES-CHANGE THRESHOLD 
(2) 022136 012760 000200 000010 77%: MOV 2128.,8.(RO)  ;@ BYTES DESIRED 
(2) 022144 112760 000020 000005 MOVB 020.5.(RO) ;MAINTENANCE MODE 
(2) 022152 005060 000006 CLR 6.CRO) ;NO SEQUENCE @ 
(2) 022156 012701 000012 MOV @RSMSIZ,R1 ;SIZE OF PACKET 
(2) 022162 005721 TST (R1)e ;PLUS FLAG+COUNT INTO R1 
(2) 022164 012765 000016 000070 MOV @RSSNSZ,SNOCNT(RS) ;SET UP SIZE TO SEND 
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MISCELLANEOUS SECTIONS 08:33 PAGE 535-7 
TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) 


CZTUUF .P1l 25-JAN-84 08:09 SEQ 0104 
C2) 
(2) 022172 004737 013674 CALL. CHKSUM 3FORM CHECKSUM R1=COUNT 
35 022176 010110 MOV R1,CRO) s INSERT IN PACKET 
€2) 022200 012701 000200 MOV #128. ,R1 3;SET EXPECTATION 
(2) ;CALC @ oF DATA PACKETS 
C2) 022204 012703 000034 MOV @XxSFLG,R3 sOF FSET OF FLAG 
(2) 022210 060503 ADD RS,R3 ;ABS. ADDR. OF XSFLG 
(2) O22212 9005002 CLR ‘PRESE 
€2) 022214 005202 73$: INC Re 3@ ga dh EXPECTED 
€2) 022216 012723 000001 MOV @RSDATA, ?* sLOAD XSFLG 
(2) O22222 012723 000204 MOV $132.. s;AND EXPECT COUNT 
(2) 022226 162701 000200 SUB #128. ,R1 SNEG RESULT LAST TIME 
€2) O22232 101401 BLOS 75$% ‘LAST TIME! 
€2) 022234 000767 BR 73$ sMORE TO 00 
C2) 022236 2 75$: INC R2 sADD ONE FOR END PACK 
(2) 022240 010265 000032 MOV R2, XSPKNMCRS ) s;SAVE #® PACKETS TO EXPEC 
(2) 022244 012723 00000 MOV @RSEND ,CR3)+ sEXPECT AN END 
$22 2 012713 000016 MOV @RSNDSZ,.CR3) ;THIS BIG-14. BYTES 
(2) 022254 004737 006600 CALL RSVP ; SEND 
$32 s;AND RETURN TO SCHEDULER 
ae 022270 TUREAD RECCRS),#128. ,.DRCRS),461T7 
(1) 
€1) 022270 012700 027746 82s: MOV #TRBUF .RO sFORM CMND PACK: 
€1) O22274 112710 MOVB @RSCMND , BRO sMESSAGE PACK TYPE 
€1) 022300 112760 000012 000001 MOVB @RSMSIZ.1CRO) : THIS BIG 
C1) 22 112760 000002 000002 @RS »eC(RO) ;0P CODE IS READ 
C1) 022314 016560 000064 000012 MOV RECCRS).10.CRO) ; THIS RE 
C1) 2 116560 000060 000004 MOVB DRCRS).4. sTHIS DRIVE 
€1) 022330 112760 000200 000003 MOVB #BIT7,3. ; VERIFY 
€1) 022336 012760 000200 000010 MOV #128. ,8.CRO) ;TOTAL BYTES TO READ 
€1) 022344 112760 000020 MOVB #020.5. ) ; MODE 
€1) 022352 000006 CLR 6.CRO) sNO SEQUENCE @ 
€1) 022356 012701 000012 MOV @RSMSIZ,.R1 ;GET SIZE OF PACKET 
C1) 022362 00572 TST CR1)+ ;+2 FOR CHECKSUM 
€1) 2 012765 000016 000070 MOV @RSSNSZ, SNDCNTCRS) ;SIZE TO 
€1) 022372 004737 013674 CALL CHKSUM ;FORM CHECKSUM R1=COUNT 
$22 022376 010110 MOV R1,CRO) INSERT CHECKSUM 
€1) 022400 012701 000200 MOV #128. ,.R1 ;SET EXPECTATION 
€1) sCALC @ OF DATA PACKETS 
€1) 022404 012703 000034 MOV @XSFLG,.R3S ;GET SET 
€1) 022410 060503 ADO . :ABS. ADDR. OF XSFLG 
€1) 0224 005002 CLR PRESET AS NONE 
€1) 022414 783: INC Re 3@ PACKETS EXPECTED 
C1) 241 012723 000001 MOV @RSDATA, CRS) ;LOAD XSFLG 
€1) O22422 012723 000204 MOV #132. ,.CR3)>+ ;AND EXPECTED COUNT 
(1) 4 162701 000200 SUB #128. ,R sNEG RESULT LAST TIME 
€1) 022432 101401 BLOS 80$ sLAST TIME 
€1) 022434 00076 BR 78$ :sMORE TO DO 
€1) 022436 803: INC Re ;ADD ONE FOR END PACK 
(1) 010265 000032 , MOV Re , XSPKNMCRS ) sSAVE @ PACKETS TO EXPEC 
€1) 022444 012723 000002 MOV @RSEND,CR3)-+ ;EXPECT AN END ALSO... 


MISCELLANEOUS SECTIONS 
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012715 
004737 


004737 
010110 


012701 
012703 


010265 
012725 


004737 


MACY11 30( 1046) 
08:09 


000016 


000010 
000005 


000070 


2s; 


st 
7 


B9 


PAGE 55-6 
IVITY WRITE/READ (126 BYTE/BLOCK MODE ) 


618: 
86%: 
87%: 
83%: 
85%: 

02 ,R4 

TSTSPTCR4) 

2s 

1% 

ha 

#1000 ,RECCRS) 

#4000 ,RECC( RS) 

38 

18% 


SEQ 0105 


MOV @RSNDSZ CRS) sTHIS BIG-14. BYTES 
CALL ROVE 5 
sAND RETURN TO SCHEDULER 

BIT - - \aaliatatiirteaaes sRETRY? 
BEQ NO. 
TURTRY RECCRS), 0128. ,ORCRS) s YES 
MOV @TRBUF ,RO sFORM CMND PACK: 
MOVB SCMNOD, sMESSAGE PACK TYPE 
MOVB @RSMSIZ.1CRO) S THIS BIG 
MOVE @RSSRD ,2CRO) 30P CODE -READ 
MOV RECCRS).10.CRO) ss THIS RECORD 
MOvB DRCRS).4.CRO) sTHIS ORIVE 

RB 3CRO r SET NORM THRESHOLD 
TSTs SRS ' 0? 
BPL 87% 
INCB 3x S YES-CHANGE THRE SHOL D 
MOV #128. ,.8.CRO) @ BYTES DESIRED 
MOvB #020 .5.( sMAINTENANCE MODE 
CLR 6.CRO) sNO SE 
MOV ORSMSIZ.R1 :SIZE OF PACKET 
TST CR1i)> sPLUS FLAG+COUNT INTO R1 
MOV ORSSNSZ, SNOCNT(RS) sSET UP SIZE TO SEND 
CALL CHK SUM sFORM CHECKSUM R1*COUNT 
MOV R1. CRO) s INSERT IN PACKET 
MOV #1286. .R1i ;SET EXPECTATION 

sCALC @ OF DATA PACKETS 

MOV @xSFLG,.RS sOF FSET OF FLAG 
ADO RS ,.RS sABS. ADOR. OF XSFLG 
CLR R2 sPRESET 
INC R2 :@ PACKETS EXPECTED 
MOV @RSDATA,CR3)> sLOAD XSFLG 
MOV #132. .(R3)> sAND EXPECT COUNT 
SuB #128. ,R1 sNEG RESULT LAST TIME 
BLOS 85% sLAST TIME! 
BR 83% i MORE TO 00 
INC 3;ADD ONE FOR END PACK 
MOV » XSPKNMC RS ) ; SAVE Ey yy TO EXPEC 
MOV @RSEND .CR3)> :EXPECT AN END 
MOV @RSNDSZ. CR3) :THIS BIG-14. BYTES 
CALL RSVP 3 SEND 


;AND RETURN TO SCHEDULER 


sPOINT TO NEXT DATA 
sEND? 


YES 

1NO - WRITE, READ NEW DATA 

oa we TO FIRST DATA 

sBUT NOW USE ADJACENT RECORD 
sALL ADJACENT RECORDS DONE? 


:YES 
;NO-WRITE, READ AT NEW RECORD 


cS 


MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:53 PAGE 53-9 


CZTIAF P11 25-JAN-84 08:09 TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE ) SEQ 0106 
6990 022732 162765 04000 000064 38; SUB @4000,REC(RS) ;RESTORE TO NEXT RECORD 
6991 022740 066565 000066 000064 ADD TMPCRS),RECCRS) sHALF INTO REST OF TAPE 
6992 022746 006265 000066 ASR TMPCRS ) sHALF OF HALF FOR NEXT TIME 
6993 Ge227S2 103402 BcsS ae s DONE ? 
6994 022754 000157 021456 JMP is sNO 
6995 022760 005237 0053524 4%: INC DONE sYES-SET FLAG 
6996 022764 000207 RETURN 
6997 022766 000000 TSTSPT: .WORD 000000 
6998 022770 125252 .WORD 125252 
6999 O22772 177777 «WORD 177777 
7000 022774 052525 -WORD 052525 
7001 022776 000000 -WORD 000000 
7002 
7005 
7004 023000 ENDTST 
(3) 023000 L10017: 
(3) 023000 104401 TRAP CseTstT 


DS 


MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08 23 Pout at 
CZTUMF .P11 25-JAN-84 08:09 TEST 4 / HIGH Ac IvITY ITE/RESD (128 BYTE/BLOCK MODE) SEQ 0107 

7007 

Ls .SBTTL TEST 5S / WRITE SELECTED NUMBER OF BLOCKS 

7010 023002 BGNTST 
(3) 023002 TS:: 

7011 023002 TSTIO e@TSTS 
(1) 023002 012737 023046 0033550 MOV oTSTS, TSTTOP sSAVE ADOR OF TEST 
(1) 023010 004737 006024 CALL SETUP sINIT UNITS TSTPC 
€1) 023014 004737 005652 CALL SE TOR sGET 1ST ORVS. 
(1) 023020 004737 006072 CALL RUN 300 TEST 
€1) 023024 004737 0055352 CALL SWAPOR sGET NEXT ORVS. 
(1) 0235030 103004 BCC 64% ;BR NO 2ND DRVS 
1) 023032 004737 006024 CALL SETUP ;REINIT UNITS TSTPC 
(1) 923036 004737 006072 CALL RUN sREPEAT TEST 
€1) 023042 64%; 3 DONE 

7012 0235042 EXIT TST 
(3) 023042 104432 TRAP CSExIT 
(3) 023044 000724 -WORD 110020-. 

wis 

7015 023046 005065 000064 TSTS: CLR RECCRS) sSTART AT REC O 

7016 023052 013765 OO03312 000066 MOV TAPLEN, TMPCRS ) GET THE @ OF BLOCKS PER TRACK 

7017 023060 005065 000062 CLR TRKCRS) RKCRS)<1ST OR 2ND PASS —_ 

7018 023064 016565 000064 000072 18: MOV RECCRS), PATTENCRS) sUSE RECORD NO. FOR DATA 

7019 023072 005737 002220 TST ORVCHK sADD OR 07 

7020 023076 001403 BEG 10% NO 

7021 023100 066565 000060 000072 ADD DRC RS) ,PATTENCRS ) Bey A ORIVE ID 
€1) 023106 012700 027746 7238: MOV @TRBUF RO sMAKE COMMAND PACKET: 
(1) O23112 112710 000002 MOVE @RSCMND , GRO sCOMMAND FLAG 
C1) 023116 1127 000012 000001 MOVB ORSMSIZ. 1(€RO) sTHIS SIZE 
C1) 023124 112760 000003 000002 MOVE @RSSWR ,2CRO) sINSERT OP CODE -WRITE 
€1) 023132 112760 000000 000005 MOVB 0.3.CRO) sVERIFY €1 OR 0) 
(1) 023140 116560 000060 000004 MOVE DORCRS).4.CRO) sORIVE © 
€1) 023146 112760 900020 000005 MOvVB #020.5.(RO) sMAINTENANCE MODE SWITCH 
C1) 023154 005060 000006 Ci.R 6.CRO) sNO SEQUENCE @ 
(1) 023160 012760 001000 000010 MOV #512..8.(RO) | ;TOTAL COUNT TO WRITE 
(1) 023166 016560 000064 000012 MOV RECCRS).10.CRO) ;AT RECORD N 
€1) 023174 012701 000012 MOV ORSMSIZ.R1 sTHE PACKET SIZE PLUS+2 
C1) 023200 005721 TST CR1id> FLAG AND COUNT) INTO R 
C1) 012765 000070 SNSZ.SNDCNTC(RS) ;LOAD THE SIZE TOS 
€1) 023210 004737 013674 CALL CHKSUM 3RO --> R1=COUNT 
€1) 023214 010110 MOV R1,CRO) sPuUT CHKSUM IN PACKET 
(1) 3SET UP EXPECTATIONS: 
C1) 023216 012765 000020 000034 MOV @RSCONT . XSFLGC Rs) 3 THE FLAG 
€1) 023224 012765 000001 000036 MOV @1,X XSCNTC RS) 3; THE COUNT 
(1) 023232 012765 000001 0000352 MOV #1, XSPKNMCRS ) ;THE @ PACKETS EXPECTED 
(1) 023240 012702 001000 V #5i2..Re :GET @ OF DATA B 
(1) 023244 004737 006600 CALL RSVP :SEND CAND RETURN TO SCH 
€1) 023250 032715 000010 BIT @BITS.aRrs :FLAG BYTE ERROR? 
€1) 023254 001314 BNE 72s ;YES 
€1) 023256 042715 010000 BIC @B8IT12,8R5 SFLAG FOR LAST PACKET 
C1) 023262 012700 027746 64%: MOV @TRBUF .RO sPOINT TO TOP OF BUFFER 
(1) 023266 020227 000200 CMP R2.0128. :START DATA PACKET(S) 
€1) O23272 101004 BHI 65% 2@5i2. > 128.! 
€1) 023274 010201 MOV R2,R1 3@512.<128. 


cy 


MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 06:55 1 
CZTUAF .Pil 25-JAN-84 06:09 TEST S / WRITE SELE LECTED R OF BLOCKS SEQ 9108 
(1) 023276 952715 610000 BIS oB1T12,aR5 3SO LAST PACKET NOW 
(1) O235302 9000402 BR 66% sUSE REMAINING COUNT 
(1) 023304 012701 000200 65%: MOV #128. ,R1 SUSE 128. BYTES 
(1) 02353510 110160 000001 668: MOVB R1,1(RO) sCOPY COUNT TO BUFFER 
(1) 023314 010105 MOV R1,R3S sRS=COUNTER TO LOAD BUFF 
(1) ©23316 112710 000001 MOVB ORSDATA, GRO sFLAG FIRST 
(1) 023322 005720 TST (RO )-+ sSKIP COUNT 
(1) 0235324 116520 000072 678; MOVB PATTENCRS),CRO)> s INSERT DATA 
(1) 023330 005305 DEC RS sMORE ? 
(1) 023332 101574 BHI 67% Ss 
(1) O02 012700 027746 @TRBUF ,RO 3-->TOP AGA 
(1) 023340 116001 1CRO),R1 sGET COUNT 
(1) 023344 642701 177400 BIC @177400,R1 sZERO SIGN EXTEND 
C1) 0623350 010165 9000070 MOV R1,SNOCNT(RS)  ;HOW TO SEND PLUS 
(1) 023354 062765 000004 000070 ADD 64,SNOCNT(RS) ;FLAG, COUNT ,CHKSUM 
1) 023362 062701 900002 ADD @2,R1 TE FOR FLAG + C 
(1) 004737 013674 CALL SUM sFOR CHECKSUM CALC. 
(1) 023372 110120 MOVB R1,CRO)> sCHKSUM INTO PACKE 
(1) 0233574 301 SWAB sEVEN ON AN ODD 
(1) 023376 110120 MOVB R1,CRO)> sBYTE BOUNDARY 
(1) 3400 032715 010000 BIT #61T12,aR5 sLAST DATA PACKET? 
(1) 023404 001412 BEQ 66% 3NO 
(1) 023406 012765 000002 900034 MOV @RSEND.XSFLG(RS) ;YES-EXPECT ‘END’ 
(1) 023414 012765 000016 0000356 MOV @RSNDSZ.XSCNT(RS) ;0F THIS SIZE 
€1) 023422 012765 900001 000032 MOV 01, XSPKNM(RS)  ;AND 1 PACKET 
(1) 023430 11 BR 695 $ 
(1) 023432 012765 000020 000034 68%: MOV @RSCONT,XSFLGCRS) ;CNOT LAST). EXPECT ° 
€1) 023440 012765 900001 000036 MOV #1, XSCNTCRS) sAND 1 BYTE 
(1) 023446 012765 000001 000052 MOV @1,XSPKNMICRS) ;AND 1 PACKET 
(1) 023454 004737 006600 69%: CALL RSVP sSEND PACKET 
(1) ;AND RETURN TO SCHEDULER 
(1) 023460 0352715 000010 BIT BITS .aRS sFLAG BYTE RETRY? 
€1) 023464 001210 BNE Tes YES 
(1) 023466 032715 002000 BIT #6IT10,aR5 sRETRY DATA ERROR? 
(1) 023472 001004 SNE 70$ 3YES 
(1) 023474 <7 000200 SUB #128. ,R2 3NO, MORE DATA TO SEND? 
€1) 023500 101270 BHI 64% 3YES 
(1) 023502 71% 3NO 
$32 023504 708: TURTRY RECCRS), 0512. .ORCRS) sRETRY HERE 
(2) 
(2) 023504 012700 027746 768: MOV @TRBUF .RO sFORM PACK : 
(2) O235:¢ 112710 000002 sMESSAGE PACK TYPE 
€2) 023514 112760 000012 000001 MOVE @RSMSIZ.1¢RO) ;THIS BIG 
C2) 3 112760 000002 000002 MOVB @RSSRD ,2(RO) : -RE 
(2) 023530 016560 000064 000012 MOV REC(RS).10.(RO) ; THIS RECORD 
(2) 023536 116560 000060 000004 MOVE DRCRS).4.CRO) ;THIS ORIVE 
(2) 023544 1 000003 3CRO) ;PRESET NORM THRESHOLD 
C2) 3550 105715 TSTB QRS sREDUCED? 
(2) 023552 100002 778 3NO 
(2) 023554 105260 000003 INCB SCRO) ;YES-CHANGE THRESHOLD 
(2) 023560 012760 001000 000010 778; MOV #512. .8.(RO) :@ BYTES DESIRED 
(2) 023566 112760 000020 000005 MOVE #020,5.(CRO) sMAINTENANCE MODE 
(2) 023574 CLR 6.CRO) 3NO SEQUENCE @ 
(2) 3600 012701 000012 MOV @RSMSIZ,R1 :SIZE OF PACKET 
(2) 923604 1 TST CR1)- sPLUS FLAG-COUNT INTO Ri 


ey SECTIONS 


: 
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P11 


25-JAN-84 08:09 SEQ 0109 
023606 012765 000016 000070 MOV @RSSNSZ,SNDCNT(RS) ;SET UP SIZE TO SEND 
023614 004737 013674 CALL CHKSUM sFORM CHECKSUM R1=COUNT 
023620 010110 MOV R1,CRO) ; INSERT IN PACKET 
023622 012701 001000 MOV #512. ,R1 sSET EXPECTATION 

sCALC @ or ae PACKETS 

023626 012703 000034 MOV @XSFLG,R3 ;OFFSET OF FLAG 

3632 060505 AGD RS ,RS sABS. ADDR. OF XSFLG 
023634 CLR PRESET 
023636 738; INC Re 3@ PACKETS EXPECTED 
023640 012723 000001 MOV @RSDATA,(R3)+ ;LOAD x LS 
023644 012723 000204 MOV #132. ,CR3)+ sAND EXPECT 
023650 162701 000200 SUB #128., ; RESULT CAST. TIME 
023654 101401 BLOS 75$ sLAST TIME? 
023656 000767 a8 73% sMORE TO DO 
023660 753: INC R2 ;ADD eye 
023662 010265 000032 MOV R2., XSPKNMCRS ) sSAVE @ pong dg TO EXPEC 

3666 012723 000002 MOV ORSEND, (R3)o sEXPECT AN END 
023672 012713 000016 MOV @RSNDSZ,.CR3) ;THIS BIG-14. BYTES 
023676 004737 006600 CALL RSVP 3 SEND 

;AND RETURN TO SCHEDULER 

023712 005365 000066 DEC TMPCRS) 300 ALL RECORDS FOR THIS TRACK? 
023716 001404 BEQ SYES-GET OTHER TRACK 
023720 5 INC RECCRS) sNO-ONTO NEXT RECORD 
023724 000137 023064 JP sEXECUTE THE WRITE 
023730 005765 2s: Tst TRKCRS) sDONE 2 T S? 
023734 001012 BNE TSTSEX 3 YES-EXIT 
023736 005265 INC TRKCRS) 3NO-SET FLAG FOR NEXT PASS 
023742 013765 003336 000064 MOV SECREC,RECCRS) ;GET NEW STARTING BLOCK @ 
023750 013765 003312 000066 MOV TAPLEN, TMP(RS) ;RESET @ OF BLOCKS 
023756 000137 JP i$ ;AND EXECUTE 
023762 005237 003324 TSTSEX: INC 3; DONE 
023766 000207 RETURN s;RETURN 
023770 ENDTST 
023770 L10020: 
023770 104401 TRAP CseTstT 


F9 
pat ty 30(1046) 25-JAN-84 08:55 PAGE 54-2 
TEST S / WRITE SELECTED NUMBER OF BLOCKS 


MISCELLANEOUS SECTIONS 


CZTUUF .P11 

7039 

7040 

7041 023772 
(3) 023772 
7042 023772 
(1) 025772 
C1) 

(1) 

(1) 024010 
(1) 024014 
(1) 024 
C1) 024022 
C1) 

C1) 024032 
7043 024052 
€3) 024032 
(3) 024034 
7044 
7045 
7046 024036 
7047 024042 
7048 024050 
7049 024054 
7050 024062 
7051 024066 
7052 024070 
7053 024076 
C1) 

C1) 

(1) 024076 
€1) 024102 
(1) 024106 
(1) 024114 
(1) 024122 
€1) 0241350 
€1) 024136 
(1) 024144 
€1) 024152 
€1) 9024160 
C1) 024164 
€1) 024170 
(1) 024172 
€1) 024200 
€1) 024204 
C1) 

€1) 024206 
C1) 

(1) 

€1) 024216 
(1) 220 
€1) 024222 
€1) 024224 
(1) 024230 
(1) 024234 
€1) 024240 
(1) 024242 


012737 


010110 
012701 
012703 
060503 


ae 30(1046) 25-JAN-84 


PAGE 55 
25-JAN-84 08:09 TEST 6 / READ SELECTED NUMBER OF BLOCKS 


003330 


TST6: 


1$: 


G9 


08:35 


SEQ 0110 
.S8STTL TEST 6 / READ SELECTED NUMBER OF BLOCKS 
SGNTST 
T6:: 

TSTIO eTSTé6 

MOV oTST6,TSTTOP s;SAVE ADDR OF TEST 

CALL SETUP sINIT UNITS TSTPC 

CALL SETOR sGET 1ST ORVS. 

CALL RUN 300 TEST 

CALL SWAPOR ;GET NEXT ORVS. 

Bcc 64% 3B8R NO 2ND ORVS 

CALL SETUP sREINIT UNITS TSTPC 

CALL sREPEAT TEST 

64%: 3s DONE 
EXIT TST 
TRAP CSExIT 
-WORD L.10021-. 

CLR RECCRS) sSTART AT REC O 
MOV TAPLEN, TMP(RS) ;GET THE @ OF BLOCKS PER TRACK 
CLR TRK s TRKCRS)*1ST OR 2ND PASS 
MOV RECCRS), PATTENCRS) sUSE RECORD NO. AS DATA 
ua at _ OR 9? 


108: 


ADO DRCRS), PATTENCRS) ee IN ORIVE ID 
TUREAD REC(RS),@512. ,DR(RS), 00 


68%: MOV #TRBUF .RO sFORM CMND PACK: 
MOVS @RSCMND . BRO MESSAGE PACK TYPE 
MOvVB @RSMSIZ.1CRO) sTHIS BIG 
MOVE ORS P ) ;0P CODE IS READ 
MOV RECCRS).10.(RO) ; THIS RECORD 
MOvVB DORCRS).4.CRO) sTHIS DRIVE 
MOVB @0,3.CRO) 
FOV #512. .8.CRO) :TOTAL BYTES TO READ 
MOVB #020.5. ) 3 
CLR 6.CRO) 
MOV @RSMSIZ.R1 :GET SIZE OF PACKET 
TsT CR1L)-+ 3*2 FOR CK 
MOV @RSSNSZ, SNOCNT(RS) sSIZE TO SEND 
CALL CHK CHECKSUM R1=COUNT 
MOV R1,.CRO) UNSERT CHECKSUM 
MOV #512. .R1 ;SET EXPECTATION 

sCALC @ OF DATA PACKETS 

MOV @xSFLG,.RS ;GET OFFSET 
ADD RS,.RS :ABS. ADDR. OF XSFLG 
CLR Re ;PRESET AS NONE 

648: INC Re 3@ PACKETS EXPECTED 
MOV ORSDATA,CR3)+ ;LOAD XSFLG 
MOV #132. ,CR3)-+ ;AND EXPECTED COUNT 
SUB #128. .R1 sNEG RESULT LAST TIME 
BLOS 66% 3;LAST TIME 
BR 64$ ;MORE TO DO 


H9 


MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:35 PAGE 55-1 
CZTUF Pil 25- -84 08:09 TEST 6 / READ SELECTED NUMBER OF BLOCKS SEQ 0111 

(1) 024244 005202 665: INC R2 ;ADD ONE FOR END PACK 
€1) 024246 010265 0000352 MOV R2 , XSPKNMCRS ) ; SAVE @ PACKETS TO _— 
(1) 024252 012723 900002 MOV ORSEND , CR3)> sEXPECT AN END ALSO. 

C1) 024256 0127135 000016 MOV ORSNDSZ,.CRS) ;THIS BIG-14. BYTES 

(1) 024262 004737 006600 CALL RSVP 1 SENO 

(1) ;AND RETURN TO SCHEDULER 
C1) 032715 002010 67%; BIT #BIT1LOIBITS, ARS iRETR v? 

€1) 024272 001500 BEQ 65% 3NO. 

oat 024274 TURTRY RECCRS), 0512. ,ORCRS) ; YES 

(2) 

C2) 024274 012700 027746 728: MOV oTRBUF ,RO sFORM CMND PACK: 

C2) 024300 112710 000002 MOVE @RSCMND , RO sMESSAGE PACK TYPE 

(2) 024304 112760 000012 000001 MOVs @RSMSIZ.1€RO) ;THIS BIG 

(2) 024312 112760 000002 000002 MOVE @RSSRD ,2CRO) s0P CODE -READ 

C2) 024320 016560 000064 000012 MOV REC(RS).10.CRO) ; THIS RECORD 

C2) 116560 000060 000004 MOVE DRCRS).4.CRO) ;THIS ORIVE 

€2) 0243534 1 000005 CLRB ;PRESET NORM THRESHOLD 
C2) 024340 105715 TSTB SRS sRE 

C2) 024342 100002 BPL 73% sNO 

C2) 024344 105260 000005 INCB 3(RO) sVYES-CHANGE THRESHOLD 
C2) 024350 012760 001000 000010 73$: MOV #512. .8.CRO) 2 BYTES DESIRED 

(2) 024356 112760 000020 000005 MOVB #020 .5.(RO) MAINTENANCE MODE 

C2) 024364 005060 000006 CLR 6.CRO) :NO SEQUENCE 

€2) 024370 012701 000012 MOV ORSMSIZ.R1 :SIZE 4 PACKET 

C2) 024374 005721 TST CR1)> sPLUS FLAG+-COUNT INTO R1 
eee 024376 012765 000016 000070 MOV @RSSNSZ. SNDCNT(RS) ;SET UP SIZE TO SEND 
C2) 024404 004737 015674 CALL CHKSUM sFORM CHECKSUM R1=COUNT 
+S. 024410 010110 MOV R1,CRO) ; INSERT IN PACKET 

(2) 024412 012701 001000 MOV #512..R1 ;SET EXPECTATION 
C2) sCALC @ OF DATA PACKETS 
(2) 024416 012703 000034 MOV @XSFLG,RS sOF FSET OF FLAG 

(2) 024422 060503 ADD RS.RS ;ABS. ADOR. OF XSFLG 
C2) 024424 005002 CLR R2 ;PRESET 

C2) 024426 005202 69%: INC Re 3@ PACKETS EXPECTED 

C2) 024430 012723 000001 MCV @RSDATA,CR3)>+ ;LOAD XSFLG 

(2) 024434 012723 000204 MOV #132. ,CR3)+ ;AND EXPECT COUNT 

(2) 024440 162701 000200 . SUB #128. .R1 sNEG RESULT LAST TIME 
C2) 024444 101401 BLOS 71% sLAST TIME! 

(2) 024446 000767 BR 69% sMORE TO DO 

(2) 024450 005202 718: INC R2 :ADD ONE FOR END PACK 
€2) 024452 010265 000032 | MOV Re, XSPKNMCRS5 ) : SAVE @ PACKETS TO EXPEC 
€2) 024456 012723 000002 MOV @RSEND , CRS )+ ;EXPECT AN END 

si 024462 012715 000016 | MOV @RSNDSZ.(R3) ; THIS BIG 14. BYTES 

(2) 024466 004737 006600 CALL RSVP : SEND 

5 ;AND RETURN TO SCHEDULER 
7054 024476 005365 000066 DEC TMPCRS ) 300 ALL RECORDS THIS TRACK? 
7055 024502 001404 BEQ 2s :YES- GET OTHER TRACK 
7056 024504 005265 000064 INC RECCRS) 3NO-NEXT RECORD 
7057 024510 000137 024054 JMP is sEXECUTE THE READ 
7058 024514 005765 000062 2s: TST TRKCRS ) ;DONE 2 TRACKS? 


7059 024520 001012 BNE TST6EX ;YES-EXxIT 


i, 


MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 0€:33 PAGE 55-2 
CZTUF Pil 25 -JAN-84 08:09 TEST 6 / READ SELECTED NUMBER OF BLOCKS SE@ O1l2 
7060 024522 005265 000062 INC TRKCRS ) sNO-SET FLAG FOR NEXT PASS 
7061 024526 013765 0033536 000064 MOV SECREC,.RECCRS) ;GET NEW STARTING BLOCK @ 
7062 024534 013765 0033512 000066 MOV TAPLEN, TMPC(RS) ;RESET ® OF BLOCKS 
7063 024542 000137 024054 JMP 1$ sAND EXECUTE 
7064 024546 005237 005324 TST6EX: INC DONE i 
bs 024552 000207 RE TURN ;RE TURN 
7067 024554 ENDTST 
(3) 024554 L10021: 
(3) 024554 104401 TRAP CsETs? 


MISCELLANEOUS SECTIONS 
CZTUUF .P11 


~ 
POQOAAMAAARAN 


CN a 
a Be we ee ee 


C3) 


7084 


PRX AF AEF AAXAAAABAAAAAAAAAAE 
eee ed 
Ree et Ce Net Cel Ne Net Need Cet Ce Nd Cet Net Se Se Sel Se See Ne Ce Bet Se Need Nee Ne Tee See ee? Se 


012737 
37 


MACY11 30( 1046) 
25-JAN-84 08:09 


024622 
4 


003330 
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25- — 84 08:33 PAGE 56 
TEST 7 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS SEQ 0112 
.SBTTL TEST 7 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 
BGNTST 
T7:: 
TSTID OTST? 
MOV oTST7,TSTTOP s;SAVE ADDR OF TEST 
CALL SETUP sINIT UNITS TSTPC 
CALL SE TOR sGET 1ST ORVS. 
CALL RUN 300 TEST 
CALL SWAPDR ;GET NEXT ORVS. 
BCC 64% :BR NO OND ORVS 
CALL SETUP ;REINIT UNITS TSTPC 
CALL ;REPEAT TEST 
64%: : DONE 
EXIT TST 
TRAP CsExIT 
-WORD L110022-. 
TST?7: CLR RECCRS) sSTART AT REC O 
MOV TAPLEN, TMPCRS) + THE @® OF BLOCKS PER TRACK 
CLR TRKC RKCRS)=1ST OR OND PASS 
1%: MOV RECCRS), PATTENCRS) sUSE RECORD NO. FOR DATA 
TST ORVCHK sADD DOR 6? 
BEQ SNO 
ADD DRC RS), PATTENCRS) sADD ORIVE ID 
108: TUWRIT PATTENCRS) RECCRS), 0512. .OR(RS). 01 
72s: MOV @TRBUF .RO sMAKE COMMAND PACKET: 
MOVB @RSCMND . BRO COMMAND FLAG 
MOVE @RSMSIZ.1CRO) sTHIS SIZE 
MOVB @RSSWR ,2CRO) s INSERT OP CODE-WRITE 
MOVB #1,3.C(RO VERIFY (1 OR O 
MOvB DRCRS).4.CRO) ; VE @ 
MO 020 ,5.¢ sMAINTENANCE MODE SWITCH 
CLR ge sNO SEQUENCE @ 
MOV #512. ,.8.CRO) * TOTAL COUNT TO WRITE 
MOV REC(RS). 10.CRO) ;AT RECORD N 
MOV @RSMSIZ,.R1 3; THE PACKET SIZE PLUS+-2 
TST CR1L)-« :(FLAG AND COUNT) INTO R 
MOV @RSSNSZ , SNDCNT(RS) ;sLOAD THE SIZE TO S 
CALL CHKSUM sRO --> R1=COUNT 
MOV R1,CRO) sPUT CHKSUM IN PACKET 
3SET UP EXPECTATIONS: 
MOV @RSCONT.XSFLGCRS) ;THE FLAG 
MOV #1,XSCNTCRS) 3 THE COUNT 
MOV #1, XSPKNMCRS5 ) :;THE @ PACKETS EXPECTED 
MOV #512. .Re ;GET @ OF DATA B 
CALL ge ; SEND CAND RETURN TO SCH 
BIT #BITS.aRs 3FLAG BYTE ERROR? 
BNE : YES 
BIC @BIT12,.8R5 SFLAG FOR LAST PACKET 
648; MOV TRBUF .RO sPOINT TO TOP OF BUFFER 
CMP R2,.0128 ;START DATA PACKET(S) 
BHI 65$ #512. > 128.! 
MOV R2,R1 :#512.<128. 
BIS eBIT12.,aR5 3;SO LAST PACKET NOW 
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000200 
000001 
000001 
000072 
027746 
000001 
177400 
000070 
000004 


000002 
013674 


000006 
000012 
000016 


000070 


000010 
000005 
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30(1046) 25-JAN-84 08:33 PAGE 56-1 
TEST 7 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 


65%: 
66%: 


678%: 


69%: 


708: 


768: 


778: 


BR 
MOV 
MOVB 


SEQ 0114 

66% ;USE REMAINING COUNT 
128. ,R1i SUSE 128. BYTES 
R1,10RO) sCOPY COUNT TO BUFFER 
R1,R3 R3=COUNTER TO LOAD BUFF 
@RSDATA,@RO sFLAG FIRST 

. ;SKIP COUNT 
(aaa aes s INSERT DATA 

3 

67% sYES 
OTRBUF ,RO 3-->TOP AGAIN 
1(0RO),R1 ;GET T 
4177400,R1 ;ZERO SIGN EXTEND 
R1,SNOCNTC(RS) sHOW MANY TO SEND PLUS 
04 , SNOCN sFLAG,COUNT , CHKSUM 
o2,R1 3C NSATE FOR FLAG + C 
CHKSUM sFOR CHECKSUM CAL 
R1,CRO)> sCHKSUM INTO PACKET 
Ri SEVEN ON AN ODD 
R1,CRO)> sBYTE BOUNDARY 
> a ,aR5 sLAST DATA PACKET? 


:NO 
@RSEND,XSFLGCRS) ;VYES-EXPECT ‘END’ 
@RSNOSZ, XSCNTCRS) ;OF THIS SIZE 
OL, XSPKNMCRS) oo 1 PACKET 


@RSCONT . XSFLGC(RS) s(NOT LAST), EXPECT ° 
#1, XSCNT(RS) sAND 1 BYTE 
#1,XSPKNMCRS) ;AND 1 PACKET 


RSVP ;SEND PACKET 
;AND RETURN TO SCHEDULER 
#BIT3.aRs — BYTE RETRY? 
7V 
#BIT10,aR5 sRETRY DATA ERROR? 
70$ ;YES 
#128. ,.R2 s;NO,. MORE DATA TO SEND? 
$ :YES 


71$ ;NO 
REC(RS), #512. .DRCRS) ;RETRY HERE 


@TRBUF .RO sFORM CMND PACK: 
@RSCMNO , SRO sMESSAGE PACK TYPE 
@RSMSIZ,1CRO) ;THIS BIG 
@RSSRD.2CRO) 3;0P - 
RECCRS).10.CRO) ‘THIS RECORD 
ORCRS).4.CRO) sTHIS DRIVE 
3SCRO) sPRESET NORM THRESHOLD 
ars ; D? 
77$ ;NO 

3; YES-CHANGE THRESHOLD 
#512. .8.CRO) :@ BYTES DESIRED 
#020,5.¢ sMAINTENANCE MODE 
6.CRO) 3;NO SEQUENCE @ 
@RSMSIZ,.R1 SIZE OF PACKET 
CR1)> PLUS FLAG+COUNT INTO R1 
@RSSNSZ, SNOCNTCRS) ;SET UP SIZE TO SEND 


L9 
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25-JAN-84 08:09 SE@ 0115 


(2) 
(2) 025370 004737 015674 CALL CHKSUM sFORM CHECKSUM R1=COUNT 
Te 025374 010110 MOV R1,CRO) s INSERT IN PACKET 
(2) 025376 012701 001000 MOV 0512.,R1 sSET EXPECTATION 
C2) sCALC @ OF apt PACKETS 
€2) 925402 012703 000054 MOV @XSFLG,R3 sOFFSET OF FLAG 
(2) 060505 ADO RS,RS SARS. ADDR. OF XSFLG 
(2) 025410 005002 CLR sPRESE 
C2) 025412 005202 73%: INC Re :¢° ga hy EXPECTED 
(2) 025414 012723 000001 MOV @RSDATA,CR3)+  ;LOAD XSFLG 
(2) 025420 012723 000204 MOV #132. ,(R3)+ sAND EXPECT COUNT 
(2) 025424 162701 000200 SUB $126. ,R1 sNEG RESULT LAST TIME 
(2) 0254350 101401 BLOS 75% sLAST TIME! 
(2) 025432 76 BR 73% ; 
C2) 025434 005202 75$: INC Re sADD ONE FOR END PACK 
(2) 025436 010265 000052 MOV R2,XSPKNMCRS) ;SAVE @ on TO EXPEC 
€2) 025442 0127235 MOV ORSEND , CR3)+ sEXPECT AN END 
$s? 025446 0127135 000016 MOV @RSNDSZ , CRS) ;THIS BIG-14. BYTES 
€2) 025452 004737 006600 CALL RSVP 3 SEND 
oe3 ;AND RETURN TO SCHEDULER 

7085 025466 005365 000066 DEC TMPCRS ) 300 ALL go FOR THIS TRACK? 

7086 025472 001404 BEQ es 3;YES-GET OTHER TRACK 

7087 025474 000064 INC REC(RS) sNO-NEXT RECORD 

7088 025500 000137 024640 JMP i$ sEXECUTE THE WRITE 

7089 025 005765 000062 2s: TST TRKCRS ) sDONE 2 TRACKS? 

7090 025510 001012 BNE TST7EX sYES- EXIT 

7091 025512 INC TRKCRS 3NO-SET FLAG FOR NEXT wey 

7092 025516 013765 005556 MOV SECREC.RECCRS) ;GET NEW STARTING SLOCK @ 

7093 025524 013765 003312 MOV TAPLEN, TMPC(RS) ;RESET @ OF BLOCKS 

7094 025532 000137 0O 0 JMP sAND EXECUTE 

7095 025536 005237 003324 TST7EX: INC ; DONE 

at 025 000207 RETURN ;RETURN 

7098 025544 ENOTST 
(3) 025544 L10022: 
C3) 025544 104401 TRAP CSETST 
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CZTUUF .P11 25-JAN-84 08:09 TEST 8 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS SEQ 0116 
LE .SBTTL TEST 8 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 
7103 025546 BGNTST 
(3) 025546 T8:: 
7104 025546 TSTID #TST8 
(1) 025546 012737 025612 00335350 MOV 4TST&, TSTTOP ;SAVE ADDR OF TEST 
€1) 025554 004737 006024 CALL SETUP ;sINIT UNITS TSTPC 
(1) 004737 005652 CALL SETOR ;GET 1ST ORVS. 
(1) 025564 004737 006072 CALL RUN 5‘ 
€1) 025570 004737 005532 CALL SWAPDR ;GET NEXT ORVS. 
€1) 025574 103004 BCC 64% ; DRVS 
(1) 025576 004737 006024 CALL SETUP sREINIT UNITS TSTPC 
€1) 025602 004737 006072 CALL RUN ;REPEAT TEST 
€1) 025606 64%: ; DONE 
7105 025606 EXIT TST 
€3) 025606 104432 TRAP CSExIT 
€3)> 025610 000520 -WORD 1L10023-. 
ss 
7108 oO25612 005065 000064 TST8: CLR RECCRS) ;START AT REC O 
7109 025616 013765 003312 000066 MOV TAPLEN, TMPCRS) ;GET THE @ OF BLOCKS PER TRACK 
7119 025624 005065 000062 CLR TRKCRS 3 TRKCRS)=1ST OR 2ND PASS 
711i 025630 016565 000064 000072 1%: MOV RECCRS),PATTENCRS) ;USE RECORD NO. FOR DATA 
7112 025636 005737 002220 TST ORVCHK ;ADD OR 6? 
7113 025642 001403 10$ 3NO 
7114 025644 066565 000060 000072 ADO ORCRS),PATTENCRS) :ADD ORIVE IO 
7 025652 10$: TUREAD RECC(RS),0512. .DRCRS), 01 
025652 012700 027746 68%: MOV @TRBUF .RO sFORM CMND PACK: 
025656 112710 000002 MOVB @RSCMND , BRO sMESSAGE PACK TYPE 
025662 112760 000012 000001 MOVB ORSMSIZ.1CRO) ;THIS BIG 
025670 112760 000002 000002 MOVB @RSSRD.,.2CRO) ;0P CODE IS READ 
025676 016560 000064 000012 a RECCRS).10.CRO) ; THIS RECORD 


025704 116560 000060 000004 vB DRCRS).4.CRO) ;THIS DRIVE 
025712 112760 000001 000005 MOVB #1,3.CRO) ; VERIFY 
MOV #512. .,.8.CRO) ;TOTAL BYTES TO READ 
025726 112760 000020 000005 MOVB #020 ,.5. CRO) sMAINTENANCE MODE 
005060 000006 3 6.CRO) ;NO SEQUENCE ¢ 
025740 012701 000012 MOV @RSMSIZ,R1 ;GET SIZE OF PACKET 
025744 005721 TST CR1)- 3+2 FOR CHECKSUM 
025746 012765 000016 000070 MOV @RSSNSZ,SNDOCNTCRS) ;SIZE TO SEND 
004737 CHKSUM ;FORM CHECKSUM R1=COUNT 
025760 010110 MOV Ri, CRO) ; INSERT CHECKSUM 


025762 012701 001000 MOV #512. ,R1 3SET EXPECTATION 
;CALC @ OF DATA PACKETS 
025766 012703 000034 MOV @XSFLG,.RS ;GET OFFSET 

060503 RS.RS ;ABS. ADDR. OF XSFLG 


PAPAL FX QAAX|’ BEX AE’ER EQOA AAA AAA AAAAOAL 
PHO ha at bt ped pat eh ped fh pt ped ped pth ea ped fet fed fou Ped feed pt ed fed ed pd ped ped pad 
ee Ned Cet St Cee Re Net Sel el Sel Need Cee Se Neel Se See Seed See Need Nr Se Sel Sel See See Sel Ye Ne? 

8 

© 

y 

~ 

b 

. 
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025774 005002 CLR Re ;PRESET AS NONE 

025776 005202 64%; INC Re 3;@ PACKETS EXPECTED 
012723 000001 MOV @RSDATA,CRS)+ ;LOAD XSFLG 

026004 0127235 000204 MOV #132. ,CR3)+ ;AND EXPECTED COUNT 

026010 162701 000200 SUB #128. ,R1 ;NEG RESULT LAST TIME 

026014 101401 BLOS 66$ sLAST TIME 

026016 000767 BR 64$ ;MORE TO DO 
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©05202 
010265 
012725 
012715 

37 


005721 
012765 
004737 
010110 
012701 


012703 
060503 


005202 
010265 
0127235 


004737 
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000032 
000002 
900016 
006600 


002010 


027746 
000002 
000012 
000002 
000064 


000060 
000005 
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08:33 PAGE 57-1 
TEST 8 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 


JMP 
TST 
BNE 


N9 


66%: 


67%: 


72s: 


73%: 


69$: 


718: 


TMPCRS ) 
2s 
RECCRS) 
1% 
TRKCRS ) 
TST8EX 


SE@ 0117 


INC Re ;ADD ONE FOR END PACK 
MOV R2,XSPKNMCRS) ;SAVE @ PACKETS TO EXPEC 
sEXPECT AN END ALSO... 
;THIS BIG-14. BYTES 


; SEND 
AND RETURN TO SCHEDULER 


BIT OBIT10!GIT3,QRS ;RETRY? 
BEQ sé ;NO. 
TURTRY REC(RS),0512..DR(RS5) —«; YES 
MOV —=s- @TRBUF RO :FORM CMND PACK: 
8B OOR ‘MESSAGE PACK TYPE 


SCMND , BRO 
@RSMSIZ,1CRO) ; THIS BIG 

B ORSSRD ,2CRO) s0P CODE -READ 
MOV RECC(RS).10.CRO) ; THIS RECORD 


MOVB DRC RS),.4.CRO) s;THIS DRIVE 
CLRB 3CRO) $ SET NORM THRESHOLD 
TST6 aRs $ 
BPL 73$ ; 
INCB 3CRO) 3 YES-CHANGE THRESHOLD 
MOV #512. ,8.CRO) ;#@ BYTES DESIRED 
MOVB #020 ,5.CRO) sMAINTENANCE MODE 
CLR 6.CRO) sNO SEQUENCE @ 
MOV @RSMSIZ,R1 sSIZE OF PACKET 
TST CR1)+ ;PLUS FLAG+COUNT INTO R1 
MOV @RSSNSZ, SNDCNTCRS5) sSET UP SIZE TO SEND 
CALL CHKSUM sFORM CHECKSUM R1=COUNT 
MOV R1,CRO) ; INSERT IN PACKET 
MOV #512. .R1 ;SET EXPECTATION 
;CALC @ OF DATA PACKETS 

MOV @XSFLG,.R3 ;OFFSET OF FLAG 
ADD RS,.R3 ;ABS. ADDR. OF XSFLG 
CLR Re ;PRESET 
INC Re 3;@ PACKETS EXPECTED 
MOV @#RSDATA, <mB)° ;LOAD XSFLG 
MOV #132., ; AND EXPECT COUNT 
SUB #128. ,R1 sNEG RESULT LAST TIME 
BLOS 71$ sLAST TIME! 

69$ sMORE TO DO 
INC ;ADD ONE FOR 
MOV Re, XSPKNMCRS ) ;SAVE #@ PACKETS TO EXPEC 
MOV @RSEND ,CR3)-+ ;EXPECT AN END 
MOV @RSNDSZ,.CR3) ; THIS BIG. 14. BYTES 
CALL RSVP ; SEND 


;AND RETURN TO SCHEDULER 


3:00 ALL RECORDS THIS TRACK? 
;YES-GET OTHER TRACK 
3;NO-NEXT RECORD 

;EXECUTE THE READ 

;DO0NE 2 TRACKS? 

3; YES-EXIT 
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CZTUF .P11 25-JAN-84 08:09 TEST 8 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS SEQ 0118 
7122 026276 005265 000062 INC TRKCRS sNO-SET FLAG FOR NEXT ~— 
7123 026302 013765 003536 000064 MOV SECRECREC(RS) 1GET NEW STARTING BLOCK 
7124 026310 013765 003312 000066 MOV TAPLEN, TMPCRS) ;RESET © OF BLOCKS 
7125 026316 000137 025650 JMP is sAND EXECUTE 
7126 026322 005237 005524 TST6EX: INC DONE ’ 
ay 4 026326 000207 RETURN sRE TURN 
7129 026330 ENOTST 
(3) 026350 110025: 


(3) 026330 104401 TRAP Csetst 
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MISCELLANEOUS SECTIONS MACY11 30( 1046) | Pa 08:35 a3 +e 
CZTUUF .P11 25-JAN-84 08:09 TEST 9 / TESTS MODIFI IAL SERIAL PROTOCOL SEQ 0119 
ting .SBTTL TEST 9 / TESTS MODIFIED RADIAL SERIAL PROTOCOL 
1 
7134 026332 BGNTST 
m = 026332 T9:: 
7136 026332 012737 026354 003350 MOV @TST9, TSTTOP sSAVE ADDR OF TEST 
7137 026340 004737 CALL SETUP sINIT UNITS TSTPC 
rake 026344 004737 006072 CALL 300 TEST 
1 i 
7140 
7141 026350 EXIT TST 
(3) 0263 104432 TRAP CSExIT 
a 2 026352 000662 -WORD 110024-. 
7143 026354 012737 0O00001 0035344 TST9: MOV #1,TEST9 s INDICATES 1ST PART OF TST 8 
7144 026362 012700 027746 64%: MOV @TRBUF ,RO sFORM COMMAND PACKET 
7145 026366 112710 MOVB @RSCMND , BRO sC 
7146 026372 112760 9000012 000001 @RSMSIZ.1CRO) + eA MESSAGE 
7147 112760 900012 000002 MOVE @RSSGET ,.2CRO) T CHARACTERISTICS 
7148 105060 000003 CLRB 3(RO) NO MODIFI 
7149 026412 005060 000004 CLR 4(RO) sNO ORIVE oR SWITCHES 
7150 026416 005060 000006 CLR 6(RO) 340 SEQUENCE NUMBER 
7151 026422 005060 000010 CLR 8.CRO) sNO BYTES 
7152 026426 005060 000012 CLR 10.CRO) NO RECORD @ 
7153 026432 012701 000012 MOV IZ,Ri sGET SI 
7154 026436 721 TST CR1) e2 F 
7155S 026440 012765 000016 000070 MOV SNSZ.SNDCNT(RS) ;sSIZE TO SEND 
7156 026446 0047 013674 CALL CHK i CKSUM 
7157 026452 010110 MOV R1,CRO) s INSERT INTO PACKET 
7158 026454 012765 000001 000034 MOV @RSDATA,XSFLGC(CRS) ;sEXPECT DATA PACKET 
7159 012765 000034 000036 MOV @RSGCOP . <a>. sTHIS BIG 
Ley 026470 012765 000001 000032 MOV 01, XSPKNM(RS) 1 PACKET 
hs 026476 004737 006600 CALL RSVP TRE TURN TO SCHEDULER 
iL 4 026502 004737 014050 CALL DOBRK :;CLR POTENTIAL INTERFACE ERROR 
7166 026 032715 000010 BIT @BIT3S,.aR5 sRETRY?(BAD FLAG) 
ae 026512 001323 BNE 64% 3 YES 
rte 026514 012737 000002 0035344 MOV @2,TEST9 s INDICATE 2ND PART OF TST 8 
7171 026522 012700 027746 65%: MOV @TRBUF .RO 3-->CPOINT TO) XMIT BUFFER 
7172 026526 112710 @RSCMND . BRO sFORM COMMAND MESSAGE PACK 
7173 026532 112760 000012 000001 “Ove @RSMSIZ.1¢0RO) : THIS BIG 
7174 026 112760 000001 000002 Move @RSSNIT,2CRO) 3;0P CODE IS INITIALIZE 
7175 026 013760 000064 000012 MOV REC ,.10.(CRO) :TO THIS RECORD 
7176 026554 1 000003 CLRB 3.CRO) 3NO MODIFIER 
7177 026560 1 000004 CLRB 4.CRO) sNO ORIVE 
7178 026564 112760 000010 000005 MOVB &BITOS,5.CRO) 3SET MRSP so 
7179 026572 CLR é.CRO) sNO SEQUENCE @ 
7180 026576 000010 CLR 8.(RO) :' 2 BYTE “wasead 
7181 026602 012701 000012 MOV ORSMSIZ.R1 Vind 
7182 026606 005721 TST CR1I)- sPLUS FLAG e BCNT 
7183 sFOR CHECKSUM CALC 
7184 026610 004737 013674 CALL CHK SUM ;RO-->TOP Ri=@ OF BYTES 


D10 


MISCELLANEOUS SECTIONS MACY L1 30(1046) 25-JAN-84 08:33 PAGE 58-1 
CZTUUF.P11  25-JAN-84 08 TEST 9 / TESTS MODIFIED RADIAL SERIAL PROTOCOL SEQ 0120 
7185 026614 010110 MOV R1, (RO) INSERT INTO PACKET 

7186 aise T UP EXPECTATIONS: 

7187 026616 012765 900016 000070 MOV @RSSNSZ , SNOCNT( ;HOW MANY TO SEND 

7188 026624 112765 000002 000034 MOVB § @RSCMND,XSFLG(RS) ,EXPECT END PACK 

7189 026632 012765 000016 000036 MOV ORSNDSZ.XSCNTC(RS) ;COUNT WITH THIS 

7190 026640 012765 000001 000032 MOV 01..XSPKNMCRS)  ;E€XPECT ONLY 1 PACKET 

7192 026646 004737 006600 CALL RSVP SEND 

7193 ;AND RETURN TO SCHEDULER 

7195 026652 032715 000010 BIT eB1T3, ERS ;RETRY (FLAG BYTE ERROR)? 

7196 026656 001321 BNE 653 sYES 

7198 026660 012700 027746 66%: MOV @TRBUF ,RO ;-->(POINT TO) XMIT BUFFER 

7199 026664 112710 000002 MOVB § @RSCMND, GRO 1FORM COMMAND MESSAGE PACK 

7200 026670 112760 000012 000001 MOVB  @RSMSIZ,1(RO) ;THIS BIG 

7201 026676 112760 000002 MOVB = @R "2(RO)  ;0P CODE IS NO-OPERATION 

7202 026704 013760 000064 000012 MOV REC, 10.(RO) 'TO THIS RECORD 

7203 026712 105060 000003 CLRB  s-_-« 3. CRO) ;NO MODIFIER 

7204 026716 105060 000004 CLRB " CRO) 3NO OR 

7205 926722 112760 000010 000005 @BITOS,5.(RO)  ;SET MASP SWITCH 

7206 026730 000006 CLR 6.(RO) 

7207 026734 000010 CLR 8.CRO) ;NO BYTE COUNT 

7208: 026740 012701 000012 @RSMSIZ.R1 ;GET COUNT 

7209 026744 005721 TST (Ride ;PLUS FLAG + BCNT 

7210 sFOR CHECKSUM C 

7211 026746 004737 013674 CALL SUM ;RO-->TOP  Ri-@ OF BYTES 

7212 026752 010110 MOV R1,(RO) ; INTO P 

7213 ;SET UP EXPECTATIONS: 

7214 026754 012765 000016 000070 MOV @RSSNSZ,SNDCNT(RS) ;HOW MANY TO SEND 

7215 026762 112765 000034 MOVB § @RSCMND.XSFLG(RS) ;EXPECT END PACK 

7216 026770 012765 000016 000036 MOV @RSNDSZ.XSCNT(RS) ;COUNT WITH THIS 

7217 026776 012765 000001 000032 MOV €1..XSPKNMCRS) ;EXPECT ONLY 1 PACKET 

7219 027004 004737 006600 CALL RSVP ;SEND 

Ln 3AND RETURN TO SCHEDULER 

7222 027010 032715 000010 BIT @B11T3,8R5 ;RETRY (FLAG BYTE ERROR)? 

7228 027014 001321 BNE 66$ sYES 

7225 027016 005237 003324 INC DONE 

7226 027022 005037 003344 CLR TEST9 

7228 027026 005737 002224 TST PPSOT9 ‘PROTOCOL SUMMARY 8 END OF PASS 

7229 027032 001477 BEQ ENDT9 

7230 027034 005037 027412 CLR UNI TNO ‘SET UNIT @ TO ZERO 

7231 027040 PRINTF @MSAGE1 ;PRINT HEADER 

(7) 027040 012746 027236 MOV eMSAGE1. 
(6) 027044 012746 000001 MOV @1, -(SP) 
(3) 027050 010600 MOV SP .RO 
(4) 027052 104417 TRAP  CSPNTF 
(4) 027054 062706 000004 ADO 04 ,SP 
7232 027060 012737 003352 003314 MOV OBLKTBL,DEVPTR ;SET ALL UNITS 

7233 027066 017705 154222 1$: MOV GDEVPTR.RS ;GET POINT 

7234 027072 005765 000000 TST STATUSC(RS ) :IS UNIT ABORTED 


7235 027076 100431 BMI 3% YES 
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MACY11 30(1046) 25-JAN-84 
25-JAN-84 08:09 


000210 


027412 
027333 
600002 


000006 
003314 


000002 
027412 


003370 
003314 


34 
022471 


2t: 


4%: 


ENDTS: 


08:33 PAGE 
TEST 9 / TESTS MODIFIED 


TST 
BEQ 
PRINTF 


BR 
PRINTF 


BR 
PRINTF 


E10 


TED RADIAL SERIAL PROTOCOL 


+ laa 31S UNIT MODIFIED 

’ 
@MSAGE2.UNITNO ;MESSAGE FOR MODIFIED UNIT 
4$ sSEE IF LAST UNIT 
@MSAGE 3S, UNI TNO | MESSAGE FOR NON-MODIFIED UNIT 
4$ 3;SEE IF LAST UNIT 
OMSAGES .UNITNO ;MESSAGE FOR ABORTED UNIT 
DEVPTR,.@LSTDEV ;IS THIS THE LAST DEVICE 
ENDTS sYES 
62 ,DEVPTR SGET NEXT > aa 
a 3 INC UNIT 


L10024: 


/ENESESAUNIT NOSSOBSESAPROTOCOL SN/ 
!SNSS9SS28018S9SS9SARSP/MRSP ! 
/ENSS98S2801SS9SS9ISARSP/ 
/EN8S96S28018S9SS9MA - - - / 


LEER 


gsagee 529888 8 


TRAP 


SEG 0121 


UNITNO, - 
#2, -(SP) 
CSPNTF 
UNITNO, = 
OMSAGES, 
é2, -(€SP) 
C3PNTF 

» SP 
UNITNO, - 
OMSAGES , 
2. -€SP) 
SP RO 
CSPNTF 


CseTst 


F10 
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TCH AREA SEQ 0122 
7261 -SBTTL PATCH AREA 
7262 000144 -REPT 100. 
7263 
7264 


. WORD 
. ENDR 


MISCELLANEOUS SECTIONS 
CZ2TUUF .P11 


041364 


25-JAN-84 08:09 


MACY11 30(1046) 25-JAN-84 08:33 PAGE 60 
I/O BUFFER AREAS: 


.SBTTL I/0 BUFFER AREAS: 


G10 


3WHO-GETS-WHAT-SPACE TABLE 


BUF TBL: 


ea eeeeeeeeeq@®eeeegeqesc@*@*eeaeeaeieqeeq@e@eq@e®qgsteeqegeeeee#u#+hn»n@weeee#sa@eeqeaeqgi@#e##eeaeeaenataeaa a #£ 2 G2 eG GF GB eB Be FB EHH HF RT ee 


eEeEaERE 


TRANSMIT BUFFER NECESSARY: 





.BYTE RSXOFF 
-BYTE RSXOFF 


3SEND XOFF BEFORE EVERY PACKET 
-BLKB RCBFSZ 


SEO 0123 


PARAMETER CODING 
CZTUF .P1l 25-JAN-84 08:0 


041364 


000021 


000031 
0414350 


160000 
177777 


001031 
041441 


000000 
000776 
003130 
041456 
000001 
002130 
041474 
000001 


002130 
041511 
000002 


pope 30( 1046) 25-JAN-84 
1/0 BUFFER AREAS; 


204 
020124 


H10O 


08:33 PAGE 61 


. TITLE PARAMETER CODING 
.SBTTL HARDWARE PARAMETER CODING SECTION 


BGNMOD 


BGNHRD 


"THE HARDWARE PARAMETER CODING ee CONTAINS MACROS 
THAT ARE USED BY 
MACROS ARE NOT EXECUTED AS MACHINE 

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


THE SUPERVISOR TO cS Sath P-TABLES. 


MSG1,0,0,160000,177777, VES 
MSG18.2,0,0,776, VES 


MSG1C,.6.1,YES 
MSG2,4,1.,YES 


MSG3,.4.2.VES 


/TUS8 CSR/ 

VECTOR ADDR./ 
/POT INTERFACE/ 
/TEST ORIVE O/ 
/TEST ORIVE 1/7 


NSTRUCTIONS BUT 


L10025: 


.EVEN 


SEQ 0124 


T $CODE 


MSG1 
TSLCLIM 


TSHIL.IM 
T $CODE 


MSG18 
TSLOLIM 
TSHILIM 


T $CODE 
MSGiC 


TsCODE 
MSG2 


PARAMETER CODING 
CZTAF Pil 


MACY11 30(1046) 25 
25 -JAN-84 08:09 S 


041115 


PAGE 62 
OFTWARE PARAMETER CODING SECTION 


T10 


-JAN-84 08:35 
SEQ 0125 


.SBTTL SOFTWARE PARAMETER CODING SECTION 


*e 

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNSF T 
-WORD L10026-L$S 
LSSOFT:: 
GPRMD MSG4,0,0,.1777,8.,512.,VES 
. WORD TSCODE 
.WORD MSG4 
. WORD 1777 
. WORD TSLOLIM 
. WORD TSHILIM 
GPRML MSG4B 10.1, YES 
. WORD TSCODE 
-WORD M™SG4B 
. WORD 1 
GPRML. MSG5.2.1.YES 
. WORD TSCODE 
-WORD MSGS 
. WORD 1 
GPRML MSG6,.6.1, YES 
. WORD TSCODE 
. WORD 
. WORD 1 
GPRML MSG7,.4.1.YES 
. WORD TSCODE 
-.WORD M™SG7 
. WORD 1 
GPRMD SG8,.10..0.,377,1.254.,YES 
. WORD TSCODE 
. WORD 
. WORD 377 
. WORD TSLOLIM 
. WORD TSHILIM 
GPRML MSG9,12..1.,YES : 
. WORD TSCODE 
.WORD M™SG9 
. WORD 1 
GPRML MSG10,14.,1.,YES 
. WORD TsSCODE 
.WORDB m™SG10 
. WORD 1 
SF TOUT: ENDSFT 
.EVEN 
L10026: 
MSG4: ASCIZ ‘NUMBER OF BLOCKS: TEST 5-8 (8 TO 5l2)' 
MSG48: .ASCIZ /ADD DOR @ TO DATA PATTERN: TEST 5-8/7 
MSGS: ASCIZ /STATISTICS PRINTED AT EOP/ 
MSG6: ASCIZ /COMPARE DATA ON READ/ 


PARAMETER CODING 


CZTUF Pil 25S - JAN - 84 


7441 
7442 
7445 
7444 
7445 


042006 051120 
042034 020045 
042075 120 
042142 042524 


MACY11 
08:09 


30( 1046) Bs -JAN-84 08:35 


MSG7: 
MSGS: 
MSG9: 
MSG10: 


J10 


PAGE 62-1 
OFTWARE PARAMETER CODING SECTION 


-ASCIZ /PRINT PACKET ON ERROR/ 

-ASCIZ /@ ERRORS = DVC FATAL IF ‘EVL'SET/ 
.ASCIZ /PRINT UNIT PROTOCOL SUMMARY CTEST 9)/ 
cae /TEST ONLY DRIVE O IN TEST 3/ 


SEQ 0126 


K10 


PARAMETER CODING MACY11 30(1046) 25-JAN-84 08:33 PAGE 63 
CZTUUF .P11 25-JAN-84 08:09 SOFTWARE PARAMETER CODING SECTION SEQ 0127 

7448 000016 -REPT 14, sLASTAD CORRECTION 

7449 . WORD 

74350 . ENOR 

7457 042232 LASTAD 

C2) -EVEN 

(2) O42232 042252 -WORD TSFREE 
C2) 042234 000006 «WORD TSSIZE 
C3) 0422356 L$LAST:: 

7458 0422356 E 

7459 

7460 042256 BGNSE TUP 1 

7461 0422356 BGNP TAB 

€4) 042236 9000000 ‘ 0 
C3) 042240 000004 -WORD 110031-. 
C3) 042242 L10027: 

7462 042242 176500 176500 
7463 042244 000300 300 

7464 042246 000005 3 

7465 042250 000000 0 

7466 042252 ENDPTAB 

€3) 042252 L10031: 

7467 042252 ENDSE TUP 

7468 000001 .END 


PARAMETER CODING 


CZTUUF .P11 
ABNOX = G 
ABO 013166 
ABOMSG 0173500 
006552 - 
ALLGON 003342 G 
ASSEMB= 000010 
BDATA = 000134 G 
BOBYTS 014746 
8 = 000022 G 
= 000014 G 
BITO = 000001 G 
BITOO = 000001 G 
BiTO1l = 000002 G 
BITO2 = 000004 G 
BITOS = 000010 G 
BITO4 = 000020 G 
BITOS = 000040 G 
BITO6 = 000100 G 
BITO7 = 000200 G 
BITOS = 000400 G 
BITOS = 001000 G 
BIT1 = 000002 G 
BIT1O = 002000 G 
BIT11 = 004000 G 
BITi2 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT1S = 100000 G 
BIT2 = 000004 G 
BITS = 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT7 = G 
BITS = 000400 G 
BIT9 = 001000 G 
BL = G 
BLKER 003334 G 
BLKSIZ= G 
BLKTBL 003352 G 
BOE = G 
BRKPTR 014566 
BRKTO 014564 
BRK 014560 
BUFTBL 027724 
BUFO 031004 
BUF 1 0 2 
Bure 033100 
BUF S 034136 
BUF 4 035174 
6UFS 036232 


MACY11 30(1046) 25-JAN-84 08:35 PAGE 64 
CROSS REFERENCE TABLE -- USER SYMBOLS 


25-JAN-84 08:09 


6015 
6039 


5145 


6017 
6055¢ 


5153¢ 
6717 


6365 


6018 


63730 


6129 


L10 


6130 


5801 
5849 


63146 


6132 


5872 
5870 


3422 
5601 


6895 
6260 
5859 
5865 
6592 


4311 
5124 


63250 


6143 


6944 


6216 


6945 


5473 


5872 
6944 


6277 
6979 


4315 
56453 


6979 


6980 


5807 


6979 


6297 


6557 


7022 


6561 


6980 


6364 


6577 


SEQ 0128 


7053 


M10 


PARAMETER CODING MACY11 30(€1046) 25-JAN-84 33 PAGE 64-1 
CZTUUF .P11 25-JAN-84 08:09 cross REFERENCE TABLE -- USER SYMBOLS SEQ 0129 
BUF 6 037270 7277 72970 
BUF 7 040326 7278 7298¢ 
CARLF 015164 6402 04 64130 
CHECK 016316 6567 6572¢ 
CHKANR 10722 5641 5653 5657¢ 
CHKANS 010616 G 5062e 5635¢ 
CHKEND 011322 G S713e 5761« 5798¢ 
CHKERR 011426 5811 58180 
CHKPKS 010726 G 5639% 56514 5687¢ 
CHKPTR 010724 56432 5644 5652 56544 5659¢ 
CHKREE 011500 5804 5825¢ 
CHKRET 012044 5809 5814 5817 5820 5824 5842 5850 5858 5860 58729 
CHKSUC 012340 G 5806« 58254 59070 
CHKSUM 013674 G 3 Sh ite 6895e 69134 694468 +6945" =6979% 6980+ 7022 70534 70846 7115 7156« 
& ‘* 
CHKS 010636 5638 5643¢ 
CKCKSM 013770 G 5706* 57444 S756 6167¢ 
CLRALL 005730 G 4994@ 5299 
CL 005770 G 49964 5012e@ 53026 
CLRPTR 006022 49942 4995 4997 4999% 5022¢ 
CMDSNT= 000100 G 4233@ S22e2e 5914 5918 5931 6080 62194 
CMNDER= 000040 G 3997¢@ 5952 
CMPDAT 002216 3887@ 6346 
CNINIT= 000032 G 39948 6272 
COMPAR 014570 G S722e 57462 #$ £63419 
CSNRDY 003346 G 4184@ 5267 
CSRCVB 003350 G 4185@ 5573 
CsAU = 900052 37720 
CSAUTO= 000061 37728 6693 
CSBRK = 000022 3772¢@ 5060 5148 5271 5595 6222 6312 6313 6475 6478 6480 
CS$BSEG= 000004 3772¢ 
CS$BSUB= 000002 3772¢ 
CSCEFG= 000045 3772¢ 
CSCLCK= 000062 3772¢e 
CSCLEA= 000012 37720 6743 
CSCLOS= 000035 3772¢ 
CSCLP1= 000006 3772¢ 
CSCVEC= 000036 3772e@ 46278 6280 6692 
CSDCLN= 000044 3772@ 5150 6575 6595 
CsD0DU= 000051 37728 6057 6704 
CSORPT= 000024 3772e@ @6721 
CsDU = 000053 37728@ £46781 
CSEDIT= 000003 3772@ 3815 
CSERDF= 000055 3772@ 6011 6025 
CSERHR= 000056 3772¢@ @60 6053 
CSERRO= 000060 3772¢ 
CSERSF= 000054 3772e@ 5147 6574 6594 
CSERSO= 000057 3772@ £6031 6049 6362 
CSESCA= 000010 3772¢ 
CSESEG= 000005 3772¢ 
SESUB= 000003 3772¢ 
CSETST= 000001 3772¢@ 6900 6927 6962 7004 7036 7067 7098 7129 7251 
CSExIT= 000032 37720 6893 6907 6937 6972 7012 7043 7074 7105 7141 
CSGETB= 000026 3772¢e 
CSGETW= 000027 3772¢ 
CSGMAN= 000043 3772¢ 


NiO 
MACY11 30(1046) _25-JAN-84 


PARAMETER CODING 08:33 PAGE 64-2 
CROSS REFERENCE TABLE -- USER SYMBOLS 


CZTUUF .P11 25-JAN-84 08:09 SEQ 0130 
C$GPHR= 000042 3772e@ ©6581 
C$GPLO= 90000350 3772¢ 
C$GPRI= 000040 37720 
CSINIT= 000011 37720 6662 
CSINP= 37720 
CS$MANI= 37720 
CSMEM = 000031 3772¢ 
CSMSG = 0000235 3772@ 6087 
CSOPEN= 0000 3772¢ 
CSPNTB= 000014 3772@ 5847 6077 080 6085 6363 ‘ 
CS$PNTF= 000017 3772@ 5502 6397 6402 6404 6701 6761 7231 7238 7240 7242 
CS$PNTS= 000016 3772@ 8696477 6479 6495 6496 6506 
CS$PNTX= OQO00015 3772@ S823 5828 5831 58335 5854 5862 
CsQ@I0O = 0003577 37720 
C$ROBU= 000007 37720 
CS$REFG= 000047 3772@ 6555 
CS$RESE= 000035 3772@ 6556 6742 
CSREVI= 0000035 3772@ 3815 
CSRFLA= 000021 3772@ @666 
C$RPT = 000025 3772@ 6519 
CSSEFG= 000046 37720 
CS$SPRI= 000041 3772@ 6237 
C$SVEC= 000037 3772¢@ 6238 6240 6681 
CS$TPRI= 000015 3772¢ 

sc 014750 6363 6374¢ 
DEVPTR 003314 G 41660 5087+ 5088 5118 5120 5124+ 5125 5141 5143« 6557 6559 6566 6568+ 

6577« 6579 66264 7232e 7233 7243 72454 
DEVO 003372 4294 4 
DEV1 00 4295 43079 
DEVe 004016 4296 4308¢ 
DEVS 0042 4297 43096 
DEV4 00444 4298 4310¢ 
DEVS 004654 4299 4311¢ 
DEV6 4300 4312¢ 
DEV7 005 4301 43130 
DFPTBL 002176 G 
OFTL1 013014 6023 6024 6025¢ 
DIAGMC= 3772 
Div = 000074 G 4231¢@ 5358 5444 5475 5$576¢ 5577 5578 5580 5601* 5602 5603 5605« 5726 
1 6083 6084+ 62964 6302+ 66254 
DOBRK 0140350 G S5ili«# 5131 62160 71644 
DONE 003324 G 4170@ 50364 6896+ 6918% 6960« 6995 7033 7064# 70954 7126 7225 
DR * G 42246 4935 4937 4939 4971+ 4972 4974« 6077 6108 6586+ 6590 6592 6915 
6944 6945 6979 6980 7021 7022 7052 7053 7083 7084 7114 7115 
DRVCHK 002 3888e 7019 7050 7081 7112 
DOTSFL 002226 3891¢ 4950 
EF .CON= 000036 G 3962¢ 
EF .NEW= 000035 G 3962¢ 
EF .PWR= 000034 G 39626 
EF .RES= 000037 G 3962¢ 
EF .STA= 000040 G 3962¢@ 6553 
010166 3400 5497 54994 

E 7 5199 32514 
ENDT9 027232 7229 7244 72490 
ERRDES 015210 G 6011 6025 6031 6038 6049 6053 60700 6362 
ERRMOD 010170 5464 55014 


Bil 


PARAMETER CODING MACY11 30(1046) 25-JAN-84 08:35 PAGE 64-5 
CZTUMF P11 25-JAN-84 08:09 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0131 
ESABO = 177720G 40540 

ESCKS = 177757 G 4065@ 4067 4068 4069 5926 
ESCKSM= 177757 4067¢@ 

ESCMD = 177720 G 40634 

ESNCRT= 177767 G 405S5e 5945 

ESNOMO= 177737 G 4062@ 5921 

ESNONX= 177770 G 4 5955 

ESOK =« 4057¢@ 

ESPART= 177776 G a 5965 

ESRD »* 177757 4069@ 

ESREC = 177711 G 4064@ 5970 

ESSK = 177740 G 4059@ 5939 

ESSLF = 177777 G 4066¢ 

ESTRY = 4060@ 5912 

ESWL.OC= 177765 G 40610 

SWR = 177757 40680 

* 3962@ 6019 

EVLTHR 002222 3889@ 6021 

EXOFF 007447 5373@ 5488 5588 

EXON 007446 5329 S372e@ 5417 5596 5608 
ESEND = 002100 37720 
ESLOAD= 000C 55 3772@ ©3615 
FLGLOC 016773 G 6019 66322 66710 
FM 015759 6496 6506 65290 
FMO 015732 95 65260 
FTLNM 8§=©003322 4169@ 6042 
FSAU = 15 3772@ 6603 
F SAUTO= 3772@ 6679 6695 
FSBGN = 000040 37720 3902 3955 6070 6267 6295 6416 6467 6535 6545 

6716 6803 6891 68953 6900 6905 6907 6927 6935 6937 


7466 7467 

FSCLEA= 000007 3772@ 6716 6743 

Fs = 000016 3772@ @ 6755 6781 

FSEND = 000041 3772e@ 3798 902 3955 6087 6291 6304 6416 63519 6535 6693 
6743 6781 6891 6900 6905 6907 6927 6935 6937 6962 


7467 
F SHARD= S772@ 8607378 7393 
Fst = 000015 37720 3873 
FSINIT= 000006 3772@ 6545 6662 
FSP = 000050 3772@ 66935 6907 6937 6972 7012 7045 7074 7105 7141 
FsMOD = 000000 3772@ 3798 3902 3955 6416 6460 6535 6888 7302 7367 7458 
FSMSG = 000011 3772@ 6070 6067 
FSPROT= 000021 37720 3826 
FSPWR = 000017 37720 
FSRPT = 000012 S772@ 6467 6519 
FSSEG = 000003 37720 
FSSOFT= 000005 3772@ 67421 7436 
FSSRV = 000010 3772@ 6287 6291 6295 6304 
FSSUB = 000002 37720 
FSSw = 000014 37720 3882 3900 
FSTEST= 000001 3772@ 6691 6900 6905 6927 6935 6962 6970 7004 7010 7036 7041 706? 


7072 7098 7103 7129 7134 7251 


5 | 


PARAMETER CODING MACY11 30(1046) 25-JAN-84 08:33 PAGE 64-4 

CZTUF.P11 25-JAN-84 08:09 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0132 

GBIMP 010612 SS72e 5582¢ 5592¢ 5593 S612« 56180 

GBTMP2 010614 5587e 5598 5600 5607+ 5610 56190 

GETANS 007172 G 50586 a 

GETHRD 016340 6573 6577¢ 

GETPTR 007236 53070 

GETRS 017246 6757¢ 67820 

GTAGIN 007504 54020 94 

GIBYTE 010366 G 53370 5357¢ S421e S44ie 5472e 55720 

GTDOWN 010124 06 5410 5425 5436 5440 5443 S447 5474 5478 5480 5486 54900 

GTOK 007750 5429 54490 

GTPKS1 007240 G 5304 53240 

GTPKS8 007450 G 5300+ 5395@ 5498 

GTPTR 010364 5401 02 S491 5493« 5546¢ 

GTuM =: 007712 34 40 54380 

GS$CNTO= 37720 

GSDELM= 000372 37720 

GSDISP= 3 37720 

GSEXCP= 000400 37720 

GSHILt- 000002 37720 

GSLOLI= 000001 3772¢ 

$NO = 000000 37720 

GSOFFS= 000400 $7720 7381 7382 $7383 #7384 +«&>7385 7422 7423 7424 7425 #%17426 #$=®%( 427 #7428 
4 

GSOFSI= 000376 37720 7381 7382 j$7383 #=$7364 +«®|«&>7385 7422 7423 (7424 (125 7426 $=®%(1227:° 17428 

G$PRMA= 000001 3772@ 7381 7382 

G$PRMD= 3772@ 7422 7427 

G$PRML= 000000 37720 7383 7364 «+#+$|: 385 7423 7424 +$+‘%125 7426 7428 7429 

G$RADA= 000140 37720 

G$RADB= 000000 3772 

G$RADD= 000040 3772@ 7422 7427 

G$RADL= 000120 37720 7383 7364 #+«+#+*+$7385 7423 7424 +$=$%7425 £7426 +#$£=‘(1428 ° #7429 

G$RADO= 000020 3772@ 7381 7382 

G$XxFER= 000004 37720 

G$YES = 000010 3772@ 7381 j+?362 #j4$7383 #+$.:?384 +«|«&7385 22 $%+17#23 #£%17424 +£x+%>j}425 7426 7427 7428 
7429 

HARDR = 000136 G 4261@ 6491 6501 

MAROW = 000140 G 6493 6503 

HELP = 000000 3757@ 3767 3789 #%3807 «®«+4+$3830 4 3645 3867 «3893 39078 3985 3964 4314 4320 
4336 «43410 ss«43490ss«43560—(i«3H1 4367020 48630 48750 48800 488689124897) 4905 
4912 4918 40 4924—s« 6 4220 © 6650 6723 6730 6763 6769 6806 6812 68320 
6873 6879 7303 7308 (#7318 +#+#$£|%$j.}329@ 7387 7403 7430 £7451 

HOE = 100000 G 39620 

HRD 013146 6043 60510 

HRORD = 000016 G 39886 5865 

HROWR = G 3989 5867 

HRDI 8 8=s-«O11 766 5852. 58610 

IBE = 010000 G 39626 

IDPTR 003326 G 4171@ 5037e 5038 5040 5042 

IDU = 000040 G 39620 

IER = 020000 G 3962 

INIT 016204 65470 

INITWO 014562 62166 43 6251 6258 6265 6271 63210 

INIT2 016234 6554 65570 

ISR = 000100 G 39620 

xe = 39620 


Dil 
PARAMETER CODING MACY11 30( 1046) g5_ gan. G8 08153 PAGE 64-5 
25-JAN-84 08:09 CROSS REFERE ABLE -- USER SYMBOLS 


CZTUUF P11 SEQ 0133 

IsAvu = 000041 3772e@ 6803¢ t) 

ISAUTO= 000041 3772e 6679¢ 6693¢ 

ISCLN = 000041 3772¢e 6716¢@ 6743¢ 

Isdvu = 000041 3772@ 6753@ #4678198 

ISHRD = 000041 378e@ 7393¢ 

ISINIT= 000041 3772e@ 6545¢@ 66620 

IsMOD = 000041 3772e@ 3 3902@ 39550 6416@ 64600 6535¢@ 68860 73020 7367¢ 7458¢ 

I8MSG = 000041 3772@ 60700 6087¢ 

ISPROT= 000040 3772¢e 38240 

ISPTAB= 000041 3772@ 74618 74660 

IsPwR = 000041 3772¢ 

ISRPT = 000041 3772@ 6467@ £=6519¢ 

ISSEG = 000041 3772¢e 6891 6905 935 6970 7010 7041 7072 7103 7134 

ISSETU= 000041 37720 460@ 7461 74679@ 

ISSFT = 000041 74218 74360 

ISSRV = 000041 3772@ 6287@ 6291¢ 6304¢@ 

IssSuB = 000041 3772e@ 6891 6 6935 6970 7010 7041 7072 7103 7134 

ISTST = 000041 3772@ 68912 6893 6900@ 6905@ 6907 6927@ 6935¢@ 6937 69620 69708 6972 7094¢ 
7010@ 7012 7036@ 7041¢ 7043 7067@ 70726 7074 70989 7103@ 7105 71298 71340 
7141 7251¢@ 

JSJP = 000167 3772¢ 

LENGTH 002210 3884 6634 

LGOFST= 000120 G 4251¢@ 6003 

— 015150 Sauhe 64002 64090 

LOG 012654 G iets S616e 5709¢ 5729e 5736¢ 5766¢ 5616+ 5839e 5668 59766 5995@ 6229% 6273« 

17e 

LOGO 013176 6032 6058¢ 

LOGOK 012742 6010 6013¢ 

LOGOK2 Ol 2 6027¢@ 

LOGO 012730 6011¢ 

LOG1 013044 6031¢ 

LOGe 013074 60362 6037« £60 

LOG3 013134 6047e¢ 60482 6049¢ 

LOG3B 013156 6051ie¢ 60522 6053¢ 

LOT = 000010 G 39620 

LSTDEV 003370 G 43010@ 4941 4975 4997 5040 5118 5141 5491 5652 6507 6566 6688 7243 

LSACP 002110 G 3815¢ 

LSAPT 002036 G 3815¢e 

LSAU 017326 G 3815 6803¢ 

LSAUT 002070 G 3815¢ 

LSAUTO 016776 G 3815 6679¢ 

Lscce 106 G 3815¢ 

LSCLEA 017160 G 3815 67160 

Lsco 002032 3815¢ 

LSDEPO 002011 G 3815¢ 

L.sDESC 002122 3615 3817¢@ 

LSDESP 002076 G 3815¢ 

LSDEVP 002060 G 3815¢@ 

LSOISP 002152 G 3615 384306 

LsOLY 002116 G 38150 

LSOTP 002040 G 38615¢ 

LSDTYP 002034 G 3815¢ 

L$DU 017202 G 3815 6753¢ 

L$OuT 72 G 38150 

L$OvTY 005512 G 3815 43340 


PARAMETER CODING 


CZTUUF Pil 25-JAN-84 08: 
LSeF 002052 G 3815¢ 
LSENVI 002044 G 3815¢ 
LSETP 002102 G 3815¢ 
LSEXP1 002046 G 3815¢ 
LSEXP4 002064 G 3815¢ 
LSEXPS 002066 G 3815¢ 
LSHARD 041566 G 3815 
LSHIME 002120 G 3815¢ 
LSHPCP 002016 G 3815¢ 
LSHPTP 002022 3815¢@ 
L Shi 002176 G 3815 
LsICP 002104 G 3815¢ 
LSINIT 016204 G 3815 
LSLADP 002026 G 3815¢@ 
LSLAST 042236 G 3815 
L$LOAD 002100 G 3815¢ 
LSLUN 002074 G 3815¢@ 
LSMREV 002050 G 3815@ 
LSNAME 002000 G 3815¢ 
LSPRIO 002042 G 3815¢@ 
LSPROT 002142 G 3815 
LSPRT OO02112 G 3815¢ 
LSREPP 002062 G 3815¢ 
LSREV 002010 G 38150 
LSRPPT 015170 G 3815 
LSSOFT 0415350 G 3815 
L$SPC 002056 G 3815¢ 
L$SPCP 002020 G 3815¢@ 
LSSPTP 002024 G 3815¢@ 
L$STA 002030 G 3815¢ 
L$Sw 002210 G 3815 
LSTEST 002114 G 3815¢ 
L$TImM 002014 G 38150 
LSUNIT 002012 G 3815¢@ 
110001 002206 3860 
L10002 002230 3882 
110003 013400 6087¢@ 
L10004 014466 62910 
L10005 014522 63040 
L10006 015612 6519¢ 
110007 016704 66620 
L10010 017102 6693¢ 
L10011 017200 6743¢ 
L10012 017244 6781¢ 
L10013 017326 

L10014 7530 6893 
L 10015 6907 
110016 0213574 6937 
110017 6972 
L10020 023770 70i2 
L10021 024554 7043 
L10022 025544 7074 
110023 026530 7105 
110024 027234 7141 
L10025 1430 7378 
L10026 041620 7421 


MACY11 30( 1046) 
09 


25 - .JAN-84 08:33 


PAGE 
CROSS REFERENCE TABLE -- USER SYMBOLS 


7467 
6001¢ 


6360 


63614 


Ell 


6580 


SEG 0134 


PARAMETER CODING 
CZTUUF .P11 


§ 
os 
o 


MACY11 30( 1046) 
25-JAN-84 08:09 


25 - JAN-84 


08 


CROSS REFERENC 


SS09¢ 
5398 


4106@ 


5485 


2s 


:33 PAGE 64-7 
E TABLE -- USER SYMBOLS 


5649 


5720¢ 


57604 


662464 


7236 


SEQ 0135 


Gil 


PARAMETER CODING MACY11 30(1046) 25-JAN-84 08:33 PAGE 64-8 

CZTUUF P11 25-JAN-84 08:09 cross REFERENCE TABLE -- USER SYMBOLS SEG 0136 

NOXOFF 006652 

NTSFT 013056 6028 60340 

NXTRET 006550 5117 5146 5151¢ 

NXTST 006122 G 50544 5086¢ 

NXTST2 006372 5119 51230 

ODTFLG= seee00 YU 6548 7468 

ONEFIL= 000001 3309@ 33135 3753 3754 3793 3903 3904 3917 6418 6419 6432 6828 6829 
6840 7324 7325 7339 

OTL * 10 G 3985¢@ 5725 

OVRFLO 013554 6011 6092¢ 

OVRN = 000012 G 3986e@ 5728 

OSAPTS= 000000 3772@ 3815 

OsAU = 000001 3772e@ 3805¢ 3815 

OSBGNR= 000001 3772e@ 38056 # 3815 

OSBGNS= 000001 3772@ 3805¢@ 38615 

Os0U = QOO0001 3772e@ 3805¢ 3815 

OSERRT= 000000 3772@ © 3815 

O$GNSW= 000001 37722 3805¢ 3815 

OSPOIN= 000001 3772@ 3805¢@ 3815 

OSSETU= 000001 3772@ 3805@ 3815 7457 

PARTL = 000034 G 3995@ 5967 

PATTEN= 000072 G 4230e@ 6079 6353 66190 69434 6944 69764 6979 70166 70214 7022 7049¢ 70526 
70804 70834 7084 71llle 71ll4ée 

POTFLG 016772 G 6588 6615 66708 

PERDEV 006404 5125e@ 5144 

PKPTR = 000104 G 4236@ 52144 5420 5479 54814 5695 6345 6394 

PNT = 001000 G 39620 

PPSOTS 224 38908 7228 

PRBUF 14 6392 

PRDAT 015152 63964 6397 6410¢@ 

PRFORM 015154 6397 6411¢ 

PRI = 002000 G 39626 

PRIOO = 000000 G 3962¢@ 6237 

PRIO1 = 000040 G 3962¢ 

PRIO2 = 000100 G 3962¢ 

PRIO3S = 000140 G 39626 

PRIO4 = G 3962¢e 

PRIOS5 = G 39620 

PRIO6 = 000300 G 3962¢ 

PRIO7 = 000340 G 3615 3962e@ 6238 6240 6681 

PRNPAK 015004 G 6366e 6387¢@ 

PRNSIZ 3340 G 4176@ 6365e 62984 

PTR 017276 67822 6783 6786e 67890 . 

RCBCNT 3 41680 53355¢ 5346s 53516 53556 54146 54336 S437e 5439¢ 5470s 5697 5704 $771 

RCBFSZ= 001036 G 40406 5015 7287 7291 7292 7293 7294 7295 7296 7297 7298 

RCDB = 900024 G 42166 5576 5601 6236 6298 661ie¢ 

RCFLG 005316 G 4167@ 5336e 5342 54i2¢ 5428 5696e 

RCINIT= Q00006 G 3984¢@ $737 

RCSR = 000022 G 42158 5465 5574 5590 6260 62776 62976 66096 6686 

RCVBUF = 000102 G 4235@ 5014 5214 5332 5689 65646 

VHND 014470 6297¢ 

RCVINT 014470 G 6238 62954 

RONO = 000114 G 42406 5232s 6496 

RON1 = 000116 G 424190 52345 6506 

REC = 000064 G 4226@ 5210 6078 66214 69116 6913 69426 6944 6945 6951¢ 6952 6955 6956¢ 
6977¢ 6979 6980 6986+ 6987 69904 6991¢ 7015@ 7018 7022 7025¢ 70300 70466 


H 11 
PARAMETER CODING MACYI1 30(1046) | 25-JAN-84 08:53 


PAGE 64 
CROSS REFERENCE TABLE -- CUSER SYMBOLS 


CZTUUF P11 25-JAN-84 08: SEQ 0137 
7049 7053 7056 7061 $7077« 17080 7084 7087e #70926 71064 #£=/7i1i11 7115 7118 
7123e 7175 7202 
RECDAT 017766 6911 6916 69210 
RECERR= 2G 3998¢@ 5972 
RECID 013462 G 6080 60908 
RECIOD2 013656 6083 60944 
COV 12064 5628 5879¢ 
RETERR 012266 5847 58890 
RETRY = 4207@ S8622e 5825 5828 5840¢ 5848+ 5851 5855+ 5654 5869 6620 
RLUN 015614 6485+ 6486+ 6495 6 
RPTR 015616 6476e 6481 6507 6509 65214 
RSCMND = G 4026 5220 6895 6913 6944 6945 6979 6980 7022 7053 7084 7115 
7145 7172 7188 7199 7215 
RSCONT= 000020 G 4021¢@ 5507 5701 6265 6944 6979 7022 7084 
RSDASZ= 000204 G 4033¢@ 4035 4040 5351 5742 $749 
RSDATA= 000001 G : ; qeun 5435 5479 5716 5740 6944 6945 6979 6980 7022 7053 7084 
, 11 1 
RSDNSZ= 000222 G 403S¢@ 5457 
RSEND = 000002 G : 5344 5431 5711 5752 6895 6944 6945 6979 6980 7022 7053 7084 
711 
RSGCDP= 000034 G 4037@ 7159 
RSINIT= 000004 G 5734 6321 
RSMSIZ= 000012 G 4031@ 4039 6895 6915 6944 6945 6979 6980 7022 7053 7084 7115 7146 
7153 7173 7181 7200 7208 
RSNDSZ= 000016 G 4029@ 4035 040 5346 5435 6895 6913 6944 6945 6979 6980 7022 7053 
7084 7115 7189 7216 
RSNTAB 002230 4077@ 6016 
RSSEND= 000100 G 40446 
RSSGET= 000012 G 4048@ 7147 
RSSNIT= 000001 G 4050@ 6219 7174 
RSSNOP= 000000 G 4049¢@ 7201 
RSSNSZ= 000016 G ag io. 6695 6913 6944 6945 6979 6960 7022 7053 7084 7115 7155 
718 214 
RSSRD = 000002 G 5227 5914 6964 6945 6979 6980 7022 7053 7084 7115 
RSSSEK= 000005 G 4047@ 6913 
RSSSLF= 000007 G 4051@ 5931 
RSSWR = 000005 G 4045@ 5236 $918 6944 6979 7022 7084 
RSvP 006600 G 5191@ 6895« 6913 69442 6945+ 979¢ 6980¢ 7022e¢ $$j(70535e 7084 #+7;|}7115¢ 7162e 71926 
72192 
RSXOFF= 000023 G 402 5373 7284 7285 
RSXON = 000020 G 4022@ 5372 
RTRYN 012224 5825 5854 S8sse 
006072 G 50548 5065 68922 6906+ 69366 6971e 7011 70420 $=$7073¢ $7104 #+;|‘(7138 
SAVCNT= 4282@ 5095 51094 
SECREC 003336 G 4175@ 66362 6639« 70350 7061 7092 71235 
SERVST 010362 5296+ 5495 553ie 5545¢ 
SET Se G 4969@ 6892+ 6 6936« 69714 7011e #70420 #$=$%$j}70735¢ #1®7104¢ 
T 016646 66340 
SETPTR 005726 4969% 4970 4975 4977« 4980¢ 
SETSRV 010276 5405 5409¢ 5521¢ 
SETUP 5036@ 6892+ 6906+ 6936 6971¢ 7011e 7042e 7073¢ 71048 +;|)'7137e 
SFPTBL 002210 G 38820 
SFT 013124 6044 6047¢ 
SFTOUT 041620 74360 
SFTRD = 000002 G 39826 5836 
SFTWR = 000004 G 39836 5838 


PARAMETER CODING 
CZTUUF P11 


SKERR = 900024 G 
SLFER = 000044 G 


S 


= 

w 

w 

~ 

oO 
ang Oo 


SVCSUB= 000001 
SVCTAG= 000001 


SVCTST= 000001 
SWAPOR 


SWPTR 
SYSTAT 


S$LSYM= 010000 


+ 
m 
Ww 
om 
z 
ve 
on 


25 - JAN -84 


MACY11 30(1046) 25-JAN-84 


08:09 


54196 
6895 


08:35 PAGE 64-10 
CROSS REFERENCE TABLE -- USER SYMBOLS 


54674 
69134 


rik 


54894 
69444 


6936¢ 


5589 
69456 


5597 
69796 


56096 
6980 


7042¢ 


70226 


70536 


70846 


SEQ 01355 


71156 


6077 


72268 


70624 


7115 
71226 


Jil 
25-JAN-84 08:33 


PARAMETER CODING PAGE 64-11 
CROSS REFERENCE TABLE -- USER SYMBOLS 


MACY11 30( 1046) 


CZTUUF P11 25-JAN-84 08:09 SEG 0139 

TST1 017374 6892 6895¢ 

TsTt2 017576 6906 69100 

TSTS 020050 4948 6936 6940¢ 

TSTSPT 022766 6945 6947 6978 6982 69974 

TST4 021442 6971 6975¢e 

TsTtS 02 7011 7015¢@ 

TSTSEX 023762 7028 7033¢ 

TST6 024036 7042 70460 

TST6EX 024546 7059 7064@ 

TST7 024622 7073 7077@ 

TST7EX 0255356 7090 7095¢@ 

TSTt8 025612 7104 7108 

TSTBEX 0263522 7121 71260 

TsT9 026354 7136 7143¢@ 

TUVECT= 000204 4281% 6238 6239 6240 6241+ 6276 6279 6260 62614 6°85 

TSARGC= 000002 3815¢@ 55020 3e@ 6582 5831¢@ 586350 7@ S65S4e@ 5862 #60770 60800 60830 636350 
ae 6402e@ 6404@ 64770 64790 64950 64960 65060 67018 67610 #=$72318@ #=|$(7238@ #$+%$}|'240¢ 

T$CODE= 007150 7381@ 73820 7383@ #7384¢@ $j§.7385@ j74220@ #+%|.+|17423@ 74240 74250 74260 74270 =7428@ #$=$™%}1429¢ 

TSERRN= 000146 3772@ 5147@ 6011@ 6025@ 60310 6038¢@ 60499 60530 6362¢@ 65740 65940 

TSEXCP= 000000 7381@ 73820 74220 «74270 

TSFLAG= 000040 6893@ 69070 6937@ 6972@ 70120 7043@ ##$7074@ +#+;%'7105¢ 71419 

TSFREE= 042252 7457 7467@ 

T $GMAN= 3772¢ 

TSHILI= 000376 7361@ 73820 74220 #£«(74270 

TSLAST= 900001 3772@ 7457¢ 460 

TSLOLI= 000001 7381@ 73820 74220 74274 

TSLSYM= 010000 3772e@ 3873 3900 7 6291 6304 6519 6662 6693 6743 6761 6826 6900 
6927 6962 7004 7036 7067 7098 7129 7251 7393 7436 

TSLTNO= 000011 7457¢ 

TSNEST= 177777 37720 37980 3624¢@ 386280 38600 58730 ® 39026 3955¢@ 60700 60878 62874 
6291@ 6295@ 6304@ 6416@ 6460@ 6467@ 65190 65350 65450 66620 66799 66938 6716¢ 
6743@ 6753@ 67810 68030 68260 68880 66910 6905e@ 6927¢@ 6935@ 6962 69700 
70048 #70108 70 70410 70678 7072¢@ 7103@ 71290 71348 =72518@ 73028 #73678 
7378@ 73930 74210 74360 74560 

TSNSO = 000000 3798@ 3902 395 6416 6460@ 6555 6545¢@ 6662 66798 66953 6716@ 6743 67530 
6761 68034 7302 73670 #7458 

TSNS1 = 000005 3824¢@ 3828 3860@ 3875 3882e 3900 6070@ 6087 6287@ 6291 62952 63504 6467¢ 
6519 6891¢@ 6900 6905¢ 6927 6935¢@ 6962 69700 004 7010@ 7036 70412 +7067 
7072e@ 7096 7103¢@ 7129 7134@ 8§=7251 7378¢@ 7393 74210 $7436 

TSPCNT= 000000 74 74619 

TSPTAB= 010030 74610 

TSPTHV= 000001 15 7467@ 

TSPTNU= 000001 3772@ 74619 7467 

TSSAVL= 177777 37720 

T$SEGL= 177777 3772¢ 

TSSIZE= 000006 7457 74670 

T$SUBN= 000000 3772@ 68919 69050 69350 69700 7010e 70418 #=(70728@ $+$|.|171035@ #£7134¢ 

TSTAGL= 177777 3772¢ 

TSTAGN= 010032 37720 38240 38820 60700 6287¢ 6467@ 65450 6679@ 67160 67538 6805¢ 
6891 69056 69350 69700 70108 7041¢@ +7072@ #+|.7103@ 7134@ ##7378@ 7421@ 74600 7461¢ 

TSTEMP= 000000 38286 38430 38736 3902@ 6087@ 62919 63040 64160 6519@ 6535 6662  6695¢ 
67430 67810 68260 68930 69000 69070 69270 69370 69620 6972@ 70048 #70128 7056¢ 
7043@ 70670 7074@ #+‘11098@ 71050 71299 71410 72510 7302@ 7381@ 73820 #73830 7584¢ 
738 73930 74220 74230 74240 74250 74260 $%7427@ (74280 74299 74360 7458¢ 

TSTEST= 000011 37720 68918 6905%@ 69350 69700 70100 70418 70720 (7103@ 7134@ 7457 


Kit 


PARAMETER CODING ened Ne 30(1046) 25-JAN-84 08:33 PAGE 64-12 

CZTUUF .P11 25-JAN-84 08:09 CROSS REFERENCE TABLE -- USER SYMBOLS 

TSTSTM= 177777 3772@ 5060 5147 5148 5150 5271 5502 
5854 5862 6011 6025 6031 6038 6049 
6222 6237 6238 624 6278 6280 6312 
6475 6477 6478 6479 6480 6495 6496 
6581 6594 6595 6632 2 6681 6692 
6761 6781 6893 6900 6907 6927 
7043 7067 7074 7098 7105 7129 7141 

TSTSTS= 000001 3772e@ 6891 6905@ 6935¢@ 69708 #£=*7010¢4 704194 

T$$AU = 010013 3¢ 

TSsAUT= 010010 79@ 6693 

TSSCLE= 010011 6716@ 6743 

TS$DAT= 010031 7461@ 7466 

TssDU = 010012 6753¢@ 6781 

TS$$HAR= 010025 7378@ 7393 

TSsHW = 010001 3873 

TS$INI= 010007 6545@ 6662 

T$$MSG= 0100035 6070@ 6087 

T$SsPC = 000001 74608 7467 

TS$PRO= 010000 38240 

T$$PTA= 010030 7460@ 74610 

TS$RPT= 010006 6467¢@ 6519 

T$$SOF= 010026 74210 7436 

T$$SRV= 010005 62878 6291 6295@ 6304 

T$$sSW = 010002 3882e@ 3900 

TS$TES= 010024 68919 6893 6900 6905¢@ 6907 6927 693°¢ 
ouer 7036 7041@ 7043 7067 7072¢e 7074 

1 

Ti 017330 G 3843 68910 

TITRY = 000146 G 42658 

T2 017532 G 3843 6905¢ 

T3 020004 G 3843 69350 

T4 021376 G 3843 6970¢@ 

T4TRY = 000132 G 42598 

TS 023002 G 3843 7010¢@ 

T6 023772 G 3843 7041¢ 

T7 024556 G 3843 7072¢ 

T8 025546 G 3843 7103¢ 

T9 026332 G 3843 71346 

UAM 39620 

UNIT 013402 G 6077 

UNITNO 027412 5502 72306 7238 7240 7242 72464 7258¢ 

UNREC 5862 588790 

UNSUC 011642 5627 584406 

T 007654 5430¢ 
WAIT 014524 6246+ 62542 6261+ 63084 6315 
013660 G 52302 52442 #=6006e £61060 

WRLOCK = 39926@ 5962 6034 

WRTNO = 000110 G 423680 S5246e¢ 6496 6601 6603 

WRTN1 = 000112 G 4239@ 5249e 6506 

XFNSND 5197 5202¢ 

XMDB = 000030 G 42180 S279e 6231+ 62906 6618+ 

XMSR = 000026 G 4217¢ 6218+ 6224 62354 62454 62534 

XSCNT = 000036 G 42216 6895+ 69156 69446 69794 70224 7084+ 

XSFLG = 000034 G 42208 5215 5325 5691 6895 69132 6944e 
7115 71584 7188s 72156 

XSPKNM= 000032 G 4219@ S2eii-¢ 5333 5407 541i 54246 5430 


7072¢ 


6937 
7098 


62764 
71594 
6945 


54464 


1i080 


6962 
7103¢ 


62894 
7189¢ 
6979 


5477s 


SEG 0140 
5828 5831 58633 5847 
6077 6083 6087 
6363 6397 6402 6404 
6553 6556 6574 6575 
6704 6721 6742 6743 
6972 7004 7012 7036 
7240 7242 7251 
713490 
69708 6972 7004 7010¢ 
7105 7129 7134¢ 7141 
66136 
72162 
6980 70220 7053 70844 
5690 6895 6913e 69446 


PARAMETER CODING povatl 5 30(1046) 25-JAN-84 


PAGE 64-15 
CROSS REFERENCE TABLE -- USER SYMBOLS 


CZTUUF P11 25-JAN-84 0 SEQ 0141 
6$945e 6979 6980 7022« #7053 7084 +$+|}$(7115¢ 47160 7190# 72174 
XSPTR = 000106 G 4237@ S2iv7e 5412 S415« 5414 54904 
X$ALWA= Q00000 3772 
X$FALS= 000040 3772¢ 
X$OFFS= 000400 3772e 
ester’ 000020 3772¢ 
= 042252 3795@ 3817@ 4105@ 41070 41090 41170 41190 41210 41230 41250 41299 41330 41350 
4139@ 41410 4143@ 4145¢@ 4147@ 4149@ 41510 43060 43070 43080 43098 43108 43114 
43120 4313¢@ 5155¢@ 5508¢@ 58840 60910 60930 64120 64146 65250 65270 65319 6534% 
6668@ 67920 6895 6907 6937 6972 7012 7043 7074 7105 7141 7257 
7287@ 72918 72920 7293@ 72944 72950 72960 72970 72980 7461 7467 


PARAMETER CODING 
25-JAN-84 08:09 


CZTUUF .P11 
BCOMPL 105¢ 
BERROR 113¢ 
BGNAU 121¢ 
BGNAUT 135¢ 
BGNCLN 149¢ 
BGNOU 162¢ 
BGNHRD 175¢ 
BGNHW 190¢ 
BGNINI 206¢ 
BGNMOD 218¢ 
BGNMSG 235¢ 
BGNPRO 2480 
BGNPTA 2620 
BGNRPT 297¢ 
BGNSEG 311¢ 
BGNSET 325¢ 
BGNSF T 352¢ 
BGNSRV 3670 
BGNSUB 3800 
BGNSW 4084 
BGNTST 423¢ 
BNC 457¢@ 
BREAK 4730 
BRESET 481¢ 
CKL 491¢ 
503¢ 
CLOSE 514¢ 
CLRVEC 528¢ 
Cc 537¢ 
DELAY 568¢ 
DESCRI 558¢ 
DEVTYP 592¢ 
DISPAT 601¢ 
DISPLA 619¢ 
DOCLN 639¢ 
DODU 6478 
DORPT 65 
ENDAU 663¢ 
ENDAUT 679¢ 
ENDCLN 696¢ 
ENDC 712¢ 
ENDDU 734¢@ 
ENDHRD 753¢ 
ENDHW 769¢ 
ENDINI 783¢ 
ENDMOD 
ENDMSG 817¢ 
ENDPRO 8340 
ENDPTA 8480 
ENDRPT 861¢ 
ENDSEG 8800 
ENDSET 8990 
ENDSFT 9190 
ENOSRV 9360 
ENDSUB 956¢ 


3955 


6575 
6704 


6416 


6304 


6460 


6935 


S271 


6692 


6595 


6535 


Mil 


MACY11 30(1046) 25-JAN-84 33 PAGE 65 
Cross REFERENCE TABLE -- MACRO NAMES 


6888 7367 


6970 7010 7041 7072 7103 


5595 6222 6312 6313 6475 


7302 7458 


7134 


64768 


6480 


SEQ 0142 


Nii 
MACY11 30(1046) _25-JAN-84 


PARAMETER CODING 08:33 PAGE 65-1 
CROSS REFERENCE TABLE -- MACRO NAMES 


CZTUUF .P11 25-JAN-84 08:09 SEQ 0143 
ENOSW 978@ 37720 13900 
ENOTST 992@ 37720 6900 6927 6962 7004 7036 7067 7098 7129 7251 
EQUALS 1015@ 37720 3962 
ERROF 1093@ 37720 £6011 6025 
ERRHRD 1105@ 3772@ 6056 6053 
ERROR 1115@ 37720 
ERRSF 1124e@ 37720 £5147 6574 6594 
ERRSOF 11360 37728 6031 6049 6362 
ERRTBL 11460 37720 
ESCAPE 11610 37720 
EXIT 1191@ 37720 6895 6907 6937 6972 7012 7043 7074 7105 7141 
FEQUAL 1233¢@ 37720 
GETBYT 1251¢ 3772¢ 
GETPRI 1269¢ 37720 
GETWOR 12610 3772¢ 
GMANIA 12918 3772¢ 
GMANID 1304@ 37720 
GMANIL 13208 3772¢ 
GPHARD 1333@ 37728 £6561 
GPRMA 134 3772@ 7381 7382 
GPRMD 1377@ 3772e@ 7422 7427 
GPRML 1412@ 37728 17383 7384 7385 7423 7424 7425 7426 7428 7429 
HEADER 1437¢@ 3772¢@ 13815 
INLOOP 1451¢ 37720 
IOSETU 14 37720 
IOSTAR 1471@ 37720 
KT11 1493@ 377206 
LASTAD 1664@ 37720 #1£®+$(7457 
1682¢@ 3772¢ 
16908 3772¢ 
MSBYTE 29120 3772@ #3815¢ 
MSCHEC 32188 37720 68930 69070 6937@ 69720 70120 704 7074@ #71050 7141¢ 
MSCNTO 32910 3772¢@ #7381 $=7382¢ 7384@ 7368 74220 74230 74240 %7425@ 74268 74272 #74280 7429 
MSCOUN 31360 3772@ 5502¢ 5823¢ 58310 S5833¢@ 5847@ 5654¢ ® 6077¢ 63632 6397% 
6402¢ 6477@ 64790 6495¢ 6506@ 67010 67610 7231%@ 72386 72408 7242¢ 
MSDATA 3772@ 3815@ 38178 435340 
MSDECR 3075@ 37720 3828@ 3873@ 39000 39028 6087@ 62910 63046 64160 65190  6555¢ 6693  6743¢ 
rp 6900@ 69270 6962@ 70040 7036@ #70670 ##=+(+7098% 71290 72518 73028 73938 74360 $7458 
MSDEFA 32 3772@ 73810 73828 =$%(7383@ #$%7384¢ %$73850@ #74220 =%7423@ 74240 ##%7425@ 74260 74278 74288 7429¢ 
MSENDE 31570 3772@ 3873@ 39000 39020 6087@ 62916 63040 6416@ 65198 65350 6662¢ 6693@ 674358  6781¢ 
6927@ 69620 70040 70360 7067@ 7096 =%$7129% ##7251¢@ 73020 73930 74360 $7458 
MSERRI 2372@ 3772@ 5147@ +60110 6025@ 6031¢@ 60380 60490 6055@ 6362¢@ 65748  6594% 
MSESCA See 0486337720 
MSESCS 3¢@ 37720 
MSEXCP 31986 37720 73610 73820 74220 #«®%j74270 
MSEXIT 29540 37720 68930 69076 6937@ 6972@ 70120 #7043@ =7074@ #+|‘['7105@ 7141% 
MSEXSE 29760 3772@ 68930 6907 6937@ 6972@ 70120 7043@ #70740 +;|‘}*105@ 7141¢ 
MSEXTJ 29650 3772@ 68930 69070 6937@ 6972@ 70120 70430 =$+7074@ #+;°‘(105@ 71410 
M$GEN 3772@ 3815¢@ 3817@ 38240 38430 38600 3873¢ 39008 4334@ 60700 60878 62878 62914 
6304@ 6467@ 65199 6545@ 66620 66790 66930 67160 6743 67530 67819 6805@ 6826  6891% 
900@ 6905@ 69276 69350 69620 6970@ 70040 7010@ 70360 #7041@ +7067@ #+%|}(7072@ 7098% 71035@  7129¢ 
7134@ 72510 73780 7393@ 74210 74360 #$%7457@ $%(|1?4610@ 7466¢ 
MSGENB 2775@ #£3772¢ 
MSGETS 30910 3772@ 38280 38730 3900 39020 60870 62910 6304@ 6416@ 6519@ 65550 6693¢  6743¢ 
6781¢ 69006 69279 69620 70040 7036@ 70670 #+%(+(7098¢ 71290 7251@ 73020 7393@ 74360 74580 


Bile 


PARAMETER CODING MACY11 30(1046) 25-JAN-84 08:55 PAGE 65-2 
CZTUF .P1l 25-JAN-84 08:09 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0144 


MSGETT 2645@ 3772@ 6893@ 6907@ 6957@ ee saake 7043@ 7074@ +#+%'‘}7105€¢ 71410 


MSGNGB 2700@ 37720 #=+%(‘$37968@ %3615@ 3617@ 3824 @ 3955@ 43346 60700 62870 6295@ 64600 
6467@ 6545@ 6679 6716@ 6753@ 6803@ 66660 7367@ =%73576@ =$7421@ #«»>(74570 
MSGNIN 3113@ 3772@ 3815@ 36170 3643@ 38600 3862e@ 43340 5060@ 5147@ 5148@ =5S150@ S5271¢e¢ 5502@ 55950 
Sé23e S626e 5631@ S633@ S647e@ S8654e@ S6620 #6011 6025@ 60518 60380 60490 6053¢@ 60578 60778 
6083@ 6087@ 62220 6257@ 62560 6276@ 62800 62919 63504@ 6312@ 63130 63620 6363¢ 
6397@ 6402@ 64040 64 6477@ 64780 6479@ 64800 64950 64960 6506@ 65196 6553¢@ 65540 65560 
6574e@ 6575@ 6561@ 65620@ 6594@ 6595¢  6652¢ ® 66610 66920 93@ 6701 67040 67218 67420 
6743@ 6761@ 6781¢ 6893¢ 69070 6927@ 693570 6962 6972@ 7004@ ##$7012@ $+$.7036@ #£=7043¢ 
7067@ 70748 7105¢@ 7 7141@ 72310 72360 $.7240@ =72420 +#+§|}72510 737860 738610 #+$.73820@ # «7386350 
7364@ 7385@ $j.7393@ 74210 =$7422@ $%$§.(?423@ 7424@ =%$.74250@ $%$§.74260@ 74270 74260 74290 74360 $%$.7457@ 7461¢ 
pre ty 27260 coake 
& 
MSGNTA 26708 3772@ =3873@ 39000 6087@ 62918 635040 65190 & 9 6743@ 67810 68260 69000 69276 
6962@ 7004@ 70360 7067@ 70988 #7129 ##7251@ 73930 74360 74610 74660 
MSGNTE 3772@ 68918 6905@ 6935¢@ 6970@ 70100 70418 ##7072@ $+%|.'103@ 715340 


MSINCR S772@ 37980 38240 ses2e 463955@ 6 65060@ 51476 S$146@ 5150@ 5271¢@ S502e@ 5595¢@ 586230 
Sssese S63ie S63s3se@ S847e@ S854e@ 58662@ 60118 6025 60351¢ 60 60498 6057@ 6070€ 60770 

6087@ 6222@ 62357@ 6236¢@ 624 6276@ 62 62876 63120 631350 63620 63650 

6397@ 64020 64040 64670 6477@ 64760 64798 64950 6496@ 65060 65190 65450 

6553e 6556¢@ 6574@ 6575@ 6581¢@ 6594@ 65 6632@ 66626 66790 66818 66920 66930 67018 67040 

6716@ 6721@ 6742@ 6743@ 6753@ 67618 6761¢ 3@ 6886e 68919 68950 9008 69070 





MSPOP 2657@ 37720 38280 3873@ £39000 6067@ 6291¢@ 63504@ 6416@ 65198 6535¢ 66930 6743¢ 
6781¢ 69008 6927@ 69620 7036@ 7067@ $7098 #$7129@ ##+$|.(72518@ =7302@ 7393@ #74360 #$£=®‘$}('456¢ 
MSPRIN 23560 3772@ 55020 S6sse 58470 56540 ® 6077¢ 6363e@ 63970 
64026 04@ 64770 64790 6495¢ 6506@ 67010 67618 723518 723580 $%$.72408@ 72420 
MSPUSH 23440 3772@ 379680 3624¢ 3955@ 60708 6287¢@ 6467@ 6545@ 66790 6716¢ 
6753¢ 6891¢@ 69056 6970@ 7010@ 7041@ 7072@ ##%7103@ 71348 =7367@ #=+%§|.(7378@ #$£%*$7421¢ 
MSPUT 2630e 3772e@ sS02e@ 562 S6sse 5647e@ Sé6S4e@ S862e@ 60778 6083@ 62380 62400 
Sanhe 6397@ 64020 640408 64770 64 6496e 65060 6681 67018 67618 72318 =7238@ #$=®‘}7240¢ 
MSPUT1 2653@ 3772@ 5502¢ . 56230 563ie@ S6sse 5847e@ S654e@ S5862@ 60770 6083@ 62560 
Faane 6397@ 64020@ 64040 6477@ 64790 64950 64960 6506@ 66810 67010 6761@ 72318 72380 72400 


MSSETS 3772¢@ 36240 @ 3955¢ 6070@ 6287@ 6295¢ 6467@ 6545¢@ 667990 67160 

nesTan 67530 res 6ssse 6891 6905¢@ 6935@ 6970@ 70100 70418 #7072@ ##(%(7103@ 71354@ 7367¢@ 7378@ 8=—674218 
3 

MSéSvC 27S57@ 3772@ SO060@ 5147 $148e@ 5150@ 52718 $502e@ 55 S$82se S628e S831e@ S833e@ 58470 5854e 

5862@ 6011 6025 6031 6038 6049 5 6057@ 6077@ 60800 6083@ 6087@ 62228 62378 623868 


Cle 


PARAMETER CODING MACY1i1 30( 1046) - JAN - 84 33 PAGE 65- 
: choss REFERENCE i 


CZTUUF P11 25-JAN-84 08:09 ABLE -- MACRO NAMES SEQ 0145 
6972@ 70048 70128 7036@ 7043@ 7067@ #+7074@ «+7098@ +7105@ 71298 71410 72310 72380 72408 72420 
72510 
MSTLAB 2750@ 3772@ S060e 5147@ 5148@ 5150@ S271@ 5502@ 5595@ 5823@ S828@ 5631 5833@ S847e@ 58540 
S862@ 6011@ 6025@ 6031@ 6038@ 60499 6053¢ 6057@ 6077@ 60800 6083@ 6087@ 62220 62370 62380 
6240@ 6278@ 6280@ 6312@ 63130 6362@ 6363@ 63970 6402@ 64040 6475@ 64770 6478@ 64790 64800 
64950 6506@ 6519@ 6553@ 6556@ 6574@ 65 6581@ 65940 6595¢ 66320 @ 6681¢ 66920 
9 6701@ 6704@ 67210 6742@ 6743@ 67610 67610 68930 69070 69270 6937@ 69620 
6972e 7004e = 70128 7036@ «7? 7067@ 70740 7 7105@ 71290 7141@ 7231@ 72 72420 
i? 
MSTSTL 27890 3772@ S060@ 5147@ 5148@ 5150@ 5271¢ S$502@ 5595@ 56230 S626@ 58310 S833@ 5847@ 58540 
S862@ 6011@ 6025@ 60310 6038@ 6049 6053¢ 6057@ 60776 60630 6087@ 6222@ 62378 62380 
6240@ 62780 6260@ 63120 6313@ 63620 6363¢@ 6397@ 64020 64040 64750 64770 64780 64790 64800 
2 6519@ 6553@ 6556@ 6574@ 6575@ 6581@ 6594@ 65950  6632¢ 66818 66920 
9 6701@ 6704@ 67210 6742@ 6743@ 67610 6781¢@ 68626¢@ 68936 6907@ 69270 69378 69620 
69720 7004@ 7012@ 7036@ 7043@ 7067@ #+(7074@ «#7 7105@ 71290 71416 7231¢@ 72380 72420 
1@ 


MSWORD 2899 37720@ =3815@ 38643@ 5147@ 6011@ 6025@ 60310 60380 60499 6053 63626 65740 65940 68930 


MSXFER 2417@ 37720 
OPEN 


1699@ 37728 
POINTE 1707@ 37720 £3805 
POP 4390e@ 5019 S272 5280 5468 5532 5535 5874 5875 6059 6061 6085 


5020 6058 6060 
6151 6152 6189 6190 6367 6368 6369 6405 6406 6513 6514 6515 6516 6517 
36 
PRINTF 18160 3772@ 5502 6397 6402 6404 pte 6761 7231 7238 7240 7242 


1902 
4377@ Sole 5015 5266 $270 5454 5521 $522 5799 5800 $995 5996 $997 5998 6071 
6072 4 6128 6167 6168 6341 6342 6343 6390 6391 6468 6469 6470 6471 6472 


2004e@ 37720 
STARS 2021¢@ 3772¢ 
Svc 2042e@ 37710 #«&335772 
4407@ S097 5108 5115 5136 


SWAPOW 
TSTIOD 4832e@ 6692 6906 6936 6971 7011 7042 7073 7104 
TURTRY 46390 6944 6945 6979 6980 7022 7053 7084 7115 


02 7084 
—< S 23060 37720 68930 6907@ 69370 6972@ 70120 =.(|17043@ $17074@ #+%;%+;(71105¢@ 71410 


D1l2 


PARAMETER CODING MACYil 30(1046) 25-JAN-84 08:33 PAGE 65-4 
CZTUUF P11 25-JAN-84 08:09 CROSS REFERENCE TABLE -- RACRO NAMES SEQ 0146 


ERRORS DETECTED: 0 


CZ TULF BIN/EN: AMA: AB CZTUUF /CRF *SVC.SML,CZTUUF .P11 
RUN-TIME: 19 2 SECONDS 

RUN - TIME nATIO. Serta 1.4 

CORE USED: 23K (46 PAGES) 


